第1页共42页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第1页共42页U8单据列表控件开发培训部门：U8平台及公共开发部U8版本号：V11.1讲师：李亮定稿时间：2013-11-110.变更记录变更阶段时间变更原因变更类型内容提出人第2页共42页第1页共42页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第2页共42页1.单据列表介绍1.1单据列表发展历程单据列表发展经历了如下几个重大里程碑：1、U8V8.721）单据列表控件引用的UFSpGrid.ocx因代码超出VB工程“容量”，同时避免打破兼容性，更换为UFSpGrid2.ocx。2）同时单据列表支持的编辑功能，具体如下：单据列表对合并显示功能的支持：要使单据列表支持合并显示的功能，主要要对栏目设置功能的进行设置，单据列表对参照输入的支持1、增加对事件BrowUser,FillList的支持，其用法与SuperGrid中的用法相同2、要使单据列表具有参照输入的功能，须在栏目设置中进行如下设置：a.AA_ColumnDic及AA_ColumnSet两个视图b.BrowUserType，如果为NULL或为0，则单据列表状态保持原样，其它类型同SuperGrid中的类型定义，其定义如下：'列参照类型EnumBrowTypeBrowNull=0UserBrowButtonDblBrowButtonDateBrowButtonBrowComEndEnum其值按１递增。增加对超字段选择范围的支持，也就条件的字节数可以超过8k限制增加对UAP结构下分页组件的调用方式,用法如下：其大体调用方式与CS方式下的调用没有太大区别，与CS不同的地方在于要UAP的调用方式要声明一个算法变量，以支持UIP调用后结果集的导入，具体用法详见示例工程的Form2代码增加对枚举类型的支持在U8VouchList中增加分页的功能，用法如下：1、请按原有使用VouchList的方式使用单据列表2、将分页的按钮放在所使用的窗体中3、在数据库中执行脚本，创建分页引擎的存储过程SPPagediv第3页共42页第2页共42页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第3页共42页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'合计方式'合计方式枚举PublicEnumSumStyleEumvlSumNone=0'没有合计vlRecordsum=1'记录集合计vlGridSum=2'Grid合计vlRecordAndGridsum=3'记录集和Grid合计EndEnumVchLst.ReadOnly=NotCBool(1)VchLst.LoginObj=m_LoginVchLst.FltState=FalseVchLst.ShiftUpDown=True‘是否支持shift+上下箭头连续选择行VchLst.HiddenRefreshView=FalseVchLst.FillMode=FillOverwrite'填充模式'填充模式枚举PublicEnumFillModeEnumFillAppend=0'追加填充FillOverwrite=1'覆盖填充EndEnum第4页共42页第3页共42页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第4页共42页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‘...
