精品客开培训文档单据列表Word格式文档下载.docx
《精品客开培训文档单据列表Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《精品客开培训文档单据列表Word格式文档下载.docx（52页珍藏版）》请在冰豆网上搜索。
DateBrowButton
BrowCom
EndEnum
其值按１递增。
增加对超字段选择范围的支持，也就条件的字节数可以超过8k限制
增加对UAP结构下分页组件的调用方式,用法如下：
其大体调用方式与CS方式下的调用没有太大区别，与CS不同的地方在于要UAP的调用方式要声明一个算法变量，以支持UIP调用后结果集的导入，具体用法详见示例工程的Form2代码
增加对枚举类型的支持
在U8VouchList中增加分页的功能，用法如下：
1、请按原有使用VouchList的方式使用单据列表
2、将分页的按钮放在所使用的窗体中
3、在数据库中执行脚本，创建分页引擎的存储过程SPPagediv
2、U8V11.0
单据列表整合了翻页和快捷过滤功能，同时增强了交互和易用性。
如：
着色、布局等20多个功能，具体参考《新单据列表迁移指导说明.doc》
1.2单据列表示例代码及常用功能说明
具体代码示例工程参见：
《列表测试工程》
1.扩展：
PrivateWithEventsm_pagedivAsPagediv'
分页引擎，配合实现单据列表自身的翻页功能。
CallobjU8Tbl.InitExternalButton（strCardNum,m_Login）
CallMe.UFToolbar1.SetFormInfo（VchLst,Me）‘单据列表及控件与toolbar绑定，以便后续二次开发功能拓展。
2.属性：
VchLst.SumStyle=vlGridSum'
合计方式
合计方式枚举
PublicEnumSumStyleEum
vlSumNone=0'
没有合计
vlRecordsum=1'
记录集合计
vlGridSum=2'
Grid合计
vlRecordAndGridsum=3'
记录集和Grid合计
VchLst.ReadOnly=NotCBool
（1）
VchLst.LoginObj=m_Login
VchLst.FltState=False
VchLst.ShiftUpDown=True‘是否支持shift+上下箭头连续选择行
VchLst.HiddenRefreshView=False
VchLst.FillMode=FillOverwrite'
填充模式
填充模式枚举
PublicEnumFillModeEnum
FillAppend=0'
追加填充
FillOverwrite=1'
覆盖填充
VchLst.Title=“列表的标题”
VouchList.TextMatrix（row,col）=“单元格值”
VouchList.LocateState‘定位状态True：
定位False：
取消定位
VouchList.TopRow‘纵向滚动后最顶上的当前行号
3.方法：
CallVchLst.InitFlt（m_Login,clsVoucherLst.objFilter,"
"
"
strErrorRes）‘初始化过滤对象
VchLst.InitHeadoColSet.getColInfo（）‘初始化表头sHeadXml表头格式信息
VchLst.SetPrintOtherInfosXML‘设置打印其它信息-表尾
SetdomOption=VchLst.GetListDom（False）‘取得列表对应dom对象bSelecttrue-返回选中行dom对象false-返回整个列表dom对象
sXML=Me.VchLst.GetColumnWidthXML（）‘获取被调整列宽或列序的栏目串
VchLst.SetFormatString"
fdtrate"
0.000000"
、VchLst.DoFormat‘设置格式化信息
VchLst.ClearDataSource‘解除数据邦定
VchLst.SetVchLstRstvltable.DataRecordset‘设置表体记录集
VchLst.RecordCount=vltable.DataCount‘设置列表全部数据集记录数
VchLst.SetSumRstrstSum‘合计记录集
CallVchLst.BindPagediv（m_pagediv）‘分页引擎邦定
VchLst.AdJustGridWidth‘作废
VchLst.ProtectUnload（）‘数据合法性检查。
当前对象状态安全检查，可在执行某些上层功能时调用。
如增加/删除功能、窗口Form_QueryUnload事件等地方
PrivateSubButtonClick（strButtonKeyAsString）
IfVchLst.ReadOnly=FalseThen
IfVchLst.ProtectUnload（）<
>
2Then
ExitSub
EndIf
EndIf
CallVchLst.ShowVoucherDesign（strPrintCardnum,ipvtidStr,"
SA"
）‘打印模板设计界面
VchLst.AddItem"
VchLst.rows‘增加项目
VchLst.ShowBatchModify‘调用这个方法显示批量修改窗口
//VchLst.AllSelect
//VchLst.AllNone
lngMainCol=VchLst.GridColIndex（strMainKey）‘根据关键字来获取所在列的索引
VchLst.Find‘查找:
在定位状态下，查找下一个
VchLst.InitPrintSetupstrPrnXml‘初始化打印设置
VouchList.VchLstPreview`'
预览
VchLst.GetGridBody（）.XXX‘引用UFSpGrid2.ocx，用于直接操作UFSpGrid2控件
VchLst.GetGridBody（）.GetGridBody（）.XXX‘引用vsflexgrid.ocx，用于直接操作vsflexgrid控件
VouchList.Locate'
定位
SetdomLine=VouchList.GetBodyLine（iRow）‘根据行索引取得表体行dom对象
4.事件：
PrivateSubVchLst_AfterColumnsDisplayRule（）'
着色后事件
PrivateSubVchLst_BatchModify（sItemXMLAsString）'
批改窗口弹出前，对传入批改窗口的xml进行再构造，比如设置参照类型等
PrivateSubVchLst_BrowUser（RetValueAsVariant,rowAsLong,ColAsLong）‘单元格编辑参照事件
PrivateSubVchLst_CellValueChanged（ByValrowAsInteger,ByValColAsInteger,NewValueAsVariant,OldValueAsVariant,KeepFocusAsBoolean）‘单元格内容变化检查事件
PrivateSubVchLst_DblClick（）‘双击
PrivateSubVchLst_FillList（ByValrAsLong,ByValcAsLong,pComAsObject）‘单元格编辑下拉事件
PrivateSubVchLst_MouseUp（ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle）
PrivateSubVchLst_PrintSettingChanged（ByValvarLocalSettingsAsVariant,ByValvarModuleSettingsAsVariant）‘打印信息改变时触发
PrivateSubVchLst_RowColChange（）‘单据列表支持切换行功能
PrivateSubVchLst_SelectClick2（ByValSelectedAsBoolean,ByValrowAsLong）‘SelectClick和SelectClick2使用一个就可以了，而且SelectClick2要逐渐替代SelectClick
PrivateSubVchLst_CopySelect（bAutherAsBoolean）‘增加copytocliborad的功能，返回权限。
PrivateSubVouchList_BeforeSendCommand（cmdTypeAsU8VouchList.UFCommandType,pageSizeAsLong,pageCurrentAsLong）‘列表翻页事件
2.列表控件原有功能说明
2.1特性
列表控件的安装位置：
\U8SOFT\ufcomsql\U8VouchList.ocx
列表控件主要用于初报表外的表格样式的展示，包括单据列表、生单列表、个别档案列表等等。
列表控件主要和栏目控件配合使用，也可以单独使用。
列表控件具备编辑能力，支持文本、数字、下拉框、参照等输入方式。
下面介绍列表控件的属性、方法、事件。
2.2属性
BottomRow属性
说明：
获取当前显示区域最后一行的索引。
只读属性。
语法：
VouchList1.BottomRow
参数说明：
无
返回值：
当前显示区域最后一行的索引
ColPoint属性
获取与设置某列的小数位数。
VouchList1.ColPoint（cFld）=[valueaslong]
VouchList1：
控件名称
cFld：
列的字段名
Value：
小数位数
EditLocked属性
获取或设置控件是否被编辑锁定，锁定后将不能编辑。
VouchList1.EditLocked（）=[valueasBoolean]
true—锁定，不能编辑，false—不锁定，可编辑。
FrozenCols属性
获取或设置列表控件冻结列的个数。
VouchList1.FrozenCols（）=[valueasLong]
冻结列的个数
IsSumSelectedRows属性
获取和设置是否只对选中行进行合计。
VouchList1.IsSumSelectedRows（）=[valueasBoolean]
控件名称。
true--只对打上“Y”的行进行合计；
false—对所有行进行合计。
LeftCol属性
获取和设置当前显示区域最左侧列的索引。
VouchList1.LeftCol=[valueasLong]
当前显示区域最左侧列的索引
LoginObj属性
获取和设置登录对象，在批改时需要登录对象。
如果使用批量替换必须设置该属性，而且在调用ShowBatchModify之前必须设置好，如果不使用批量替换，可以不设置。
VouchList1.LoginObj=[valueasObject]
当前U8的登录对象
ReadOnly属性
获取和设置控件是否只读。
VouchList1.ReadOnly=[valueasBoolean]
true—只读false—可编辑
RightCol属性
获取当前显示区域最右侧列的索引。
VouchList1.RightCol
无
ShiftUpDown属性
获取和设置是否支持shift+上下箭头连续选择行。
VouchList1.ShiftUpDown=[valueasBoolean]
当前控件对象。
true—支持false—不支持。
ShowSelCol属性
获取和设置是否显示选择列。
VouchList1.ShowSelCol=[valueasBoolean]
true—显示选择列false—不显示选择列。
SortASC属性
获取和设置当前排序是升序还是降序。
VouchList1.SortASC=[valueasBoolean]
true表示升序false表示降序。
SortCol属性
获取当前排序列的列号，如果返回值为-1表示没有排序列（还没有使用过排序）。
VouchList1.SortCol
SumRows属性
获取和设置合计（小计）行的行数。
有些合计行是业务组加进去的，不是用的SumStyle属性，这种情况处理选择行时就会把这样的行选中。
增加这个属性后，业务组代码就可以更改合计行的行数，从而在选择行时排除这些行。
注意：
合计行必须是在末尾
VouchList1.SumRows=[valueasLong]
有多少个合计行。
SumStyle属性
如果需要连续使用addline增加行，将会频繁地调用GridAutoSum（addline内调用）导致效率下降。
解决办法：
程序员在连续调用addline之前，把sumstyle设置为sumnone，调用addline结束后，再赋回原来的合计方式。
示例代码如下：
dimOldSumStyleAsSumStyleEum
OldSumStyle=Vouchlist.SumStyle
VouchList.SumStyle=SumStyleEum.vlSumNone
........
VouchList.SumStyle=OldSumStyle
VouchList1.SumStyle=[valueasSumStyleEum]
PublicEnumSumStyleEum
vlSumNone=0'
vlRecordsum=1'
vlGridSum=2'
vlRecordAndGridsum=3'
EndEnum
TextMatrixName属性
说明：
返回表体中某一单元格的值，如果是枚举值，则返回枚举名称
语法：
VouchList1.TextMatrixName（rowaslong,colaslong）
参数说明：
Row：
行索引
Col：
列索引
TopRow属性
获取和设置当前显示区域最顶端行的索引。
VouchList1.TopRow=[valueasLong]
当前显示区域最顶端行的索引
2.3方法
AddLine方法
根据传入dom对象新增加一行，内部要调用AddItem方法。
FunctionAddLine（ByValrowAsLong,ByValoDomAsDOMDocument）AsBoolean
插入行索引，在该行后插入新增行
oDom：
行dom对象
成功返回true，失败返回false。
AddSumLine方法
说明：
根据传入dom对象新增加一行合计行.
PublicFunctionAddSumLine（ByValrowAsLong,ByValoDomAsDOMDocument）AsBoolean
插入行索引，在该行后插入新增行
行dom对象
成功返回true，失败返回false。
CalcSum方法
重新计算合计行的数值。
PublicSubCalcSum（）
DisableTextMatrix方法
设置单元格是否可用，不可用后，既不能手工输入，也不能通过textmatrix赋值。
PublicSubDisableTextMatrix（ByValbDisableAsBoolean,ByValsIndexAsString,ByValrowAsLong）
bDisable：
true-disablefalse-enable
sIndex：
列索引（字符串）
row：
行索引（数值）
GetBodyLine方法
根据行索引取得表体行dom对象。
PublicFunctionGetBodyLine（ByValrowAsLong）AsDOMDocument
行dom对象，其中包含行中的数据。
GetColIndex方法
根据列的字段名称取列的顺序号。
PublicFunctionGetColIndex（ByValColNameAsString）AsLong
ColName：
列的字段名称
列的顺序号。
GetColName方法
根据列的顺序号取列的字段名称。
PublicFunctionGetColName（ByValColIndexAsLong）AsString
列的顺序号
列的字段名称
。
GetGridBody方法
获取列表控件封装的SuperGrid控件。
PublicFunctionGetGridBody（）AsObject
SuperGrid控件对象。
GetHeadLine方法
取得标题行的dom对象。
PublicFunctionGetHeadLine（）AsDOMDocument
标题行的dom对象。
GetListDom方法
取得列表数据的dom对象。
PublicFunctionGetListDom（ByValbSelectAsBoolean）AsDOMDocument
bSelect：
true-返回选中行dom对象false-返回整个列表dom对象
列表数据的dom对象
HideCaption方法
隐藏列表的标题，如销售订单列表的标题“销售订单列表”。
PublicSubHideCaption（）
Locate方法
弹出定位窗口，根据输入的条件定位。
PublicSubLocate（ByValLocStateAsBoolean）
LocState：
true-定位false-取消定位
无。
ProtectUnload方法
当前对象状态安全检查，可在执行某些上层功能时调用。
如增加/删除功能、窗口Form_QueryUnload事件等地方
PublicFunctionProtectUnload（）AsOpType
EnumOpType
dbCandel=0—取消操作
dbRetry-
升级会员 