ERP事业部咨询实施客户化开发部
返回或设置当前表体活动单元格的行列坐标，此属性在设计状态不可用。 语法：
voucher.Col [=number] voucher.Row [=number] 参数说明: 参数 Voucher number 描述 单据控件名称 一个指定的指定活动单元行列的数值
备注： 使用Col、Row属性来指定活动单元格，Col>0，Row>0，Col 设置完Col，Row值后ColSel和RowSel将自动变更成Col，Row，更详细的说明请参照MSDN。 举例： ? TitleCaption,TitleFont,TitleForeColor,ToolTipText 返回或设置标题各项属性值 语法： voucher. TitleCaption [=string] voucher. TitleFont [=font] voucher. TitleForeColor [=color] voucher. ToolTipText [=string] 参数说明： 参数 Voucher Color string Font 描述 单据控件名称 一个指定的颜色值 字符串表达式 指定的字体对象 Public Sub Command_Click() Voucher.Col=50 Voucher.Row=20 Debug.Print Voucher1.Col Debug.Print Voucher1.Row Debug.Print Voucher1.ColSel Debug.Print Voucher1.RowSel End Sub 备注： 这些属性的赋值操作必须在setTemplateData方法后，否则你的操作将会 得不到处理(因为你的这些操作会被setTemplateData方法覆盖)。 第21页 共 329页 ERP事业部咨询实施客户化开发部 ? Left,Top,Width,Height属性 返回或设置单据控件大小属性 语法： voucher.Left [=value] voucher.Top[=value] voucher.Widht[=value] voucher.Height[=value] 参数说明： 参数 Voucher value 描述 单据控件名称 数值 备注： 在执行完setTemplateData方法后，setTemplateData会按照单据格式设计的宽度和高度自动设置Width和Height属性。 ? HeaderText属性 设置或返回表头项目的值 语法： voucher.HeaderText(Index)= [=string] 参数 说明：Voucher 单据控件名称 Index下标，可以是数值，也可是关键字，用来标识表头项目 string 字符串或数值 备注： 如果你要设置的项目(Index)不存在，单据控件将会产生一个错误，具体的错误信息可以通过GetLastError方法得到。 举例： Public Sub Command1-_Click() Voucher.headerText(1)=?用友软件公司‘ Voucher.headerText(?cCusName‘)= ?用友软件公司‘ cCusName= ?客户名称‘ End Sub ? BodyText属性 设置或返回表体项目的值 语法： voucher.BodyText(Row as Long,Col as Variant)= [=string] 参数 说明： Voucher 单据控件名称 Row数值，表示表体里的哪一行 Col 可变 体，可以是列，也可用关键值来表示表体里的哪一行。 String 字符串表达式 举例： Public Sub Command1-_Click() Voucher.bodyText(1,1)=?用友软件公司‘ Voucher. bodyText (1,?cCusName‘)= ?用友软件公司‘ cCusName=?客户名称‘ End Sub 第22页 共 329页 ERP事业部咨询实施客户化开发部 ? BodyColWidth属性 设置表体指定行的宽度 语法： voucher. BodyColWidth (Col as Variant)= [=value] 参数 说明： Voucher 单据控件名称 Col 可变体，可以是列，也可用关键值来表 示表体里的哪一列。 value数值 备注： 有些属性用来给程序员动态的控制单据表体的某一列显示。需要在做具体的操 作时，考虑用户权限的问题。 举例: Public Sub Command1-_Click() Voucher.bodyColWidth(1)=300 Voucher.bodyColWidth (?cCusName‘)= 300 ，cCusName=?客 户名称‘ End Sub ? BodyMaxRows 返回或设置表体可输入的最大行数 语法： voucher. BodyMaxRows[=Value] 参数说明： Public Sub Command1_Click() Voucher.bodymaxRows = 2 ?表体最多可以输入2行数据 End Sub ? BodyRows 返回当前表体数据行的总数(只包括有数据的行) 语法： voucher. BodyRows [=Value] 参数说明： Public Sub Command1-_Click() Debug.print voucher.bodyRows End Sub ? m_sPrintEntir 设置打印环境变量 语法： voucher.m_sPrintEntir = [string] 在单据打印的时候用户可以将当前打印机设置保存起来，以备下次打印的时 候不需要重新设置。 备注： 该属性只为Web模式设置，C/S结构另(详见DEMO)。 第23页 共 329页 ERP事业部咨询实施客户化开发部 ? MultiLineSelect 返回或设置是否是多行选择 语法： voucher.MultiLineSelect = [Boolean] 备注： 在表体参照的时候如果你需要参照返回多条数据时，在你参照前需要先把 该属性设置为TRUE,参照完成后一定要把该属性设置成FALSE （如果不进行处理,有可能会产生单据不能离开焦点的BUG）。 单据控件的主要方法 ? setTemplateData方法 功能： 设置单据控件的模版数据记录集，在第一次初始化单据控件时，必须设置单据模版数据。 语法： Public Sub setTemplateData(rstTemplate As Recordset) 参数： rstTemplate: 单据模版数据结果记录集 备注： 本操作是将单据设计好的结果集传递给单据控件进行显示界面初始化处理。包括定位、模版信息。 该数据结果集是通过调用单据控件后台服务来获得的。 举例： Public Sub Command1-_Click() Dim o as Object Dim rst as Recordset Set o = CreateObject(?UFVoucherServer85.clsVoucherTemplate‘) If o is nothing then Exit Sub ?如果创建对象Fail,则退出 Set rst = o.GetTemplateData2(数据库连接(Connection),单据(CardNumber), 模版号(VT_ID)) Voucher.SetTemplateData(rst) ?设置模版 End Sub ? AddLine方法 Public Sub AddLine(optional nRow as Long, Option sLine as String = ?‘ Option Relative as AddLineState = ALSLast) ? DelLine方法 功能： 单据表体删除指定的行，如果没指定行删除当前所在的行。 语法： Public Sub DelLine(Optional Byval nRow as Long) 参数： nRow 为单据表体的具体行号 第24页 共 329页 ERP事业部咨询实施客户化开发部 返回值：无 ? AddNew方法 功能：增加一张新单据 语法： Public Sub AddNew（Byval eMode as AddNewMode） 参数： eMode为新增时的增加模式 返回值：无 备注： 增加一张新单据，实际上就是将表头对象(Header)和表体对象(Body)中各项目的值增加模式清空。在增加一张新的单据时,应先调用。 ? GetVoucherDataXML方法 功能：得到单据数据DOM对象 语法： Public Sub getVoucherData(oDomhead As Variant,oDomBody As Variant) 参数： rstHeader:表头数据DOM对象(MSXML.DOMDocument对象) rstBody: 表体数据DOM对象(MSXML.DOMDocument对象) 返回值：无 备注：更新数据(从控件生成DOMDocumetn对象) ? GetLineDom方法 功能：返回当前或指定行的Dom对象(得到表体一行的全部Dom数据对象) 语法： Public Function GetLineDom(Optional ByVal nRow As Long = 0) As DOMDocument 参数： nRow指定的行Index,缺省为0，即取当有Mouse所在行的数据 返回值：DOMDocument对象 ? PrintVoucherEx方法 功能：打印单据数据 语法： Public Function PrintVoucherEx(ByVal rsTemplate As Variant, ByVal rsField As Variant, Optional ByVal bShowPrintDlg As Boolean = True) As Long 参数： rsTemplate [IN]记录集 单据模版数据(必需通过单据后台服务提供) rsField [IN]记录集 固定文本数据(必需通过单据后台服务提供) bShowPrintViewDlg [IN] 布尔值 是否显示打印对话框 返回值： 如果打印成功返回0，否则返回非0，具体的错误信息请参考打印控件(Error Table) 举例： Public Sub Command1-_Click() Dim o as Object 第25页 共 329页