L5--U8111客开培训文档--单据列表.docx

U8 单据列表控件开发

培训部门：U8 平台及公共开发部 U8 版本号：

单据列表发展经历了如下几个重大里程碑：

1）单据列表控件引用的 UFSpGrid.ocx 因代码超出 VB 工程“容量”，同时避免打破

兼容性，更换为 UFSpGrid2.ocx。

2）同时单据列表支持的编辑功能，具体如下：

单据列表对合并显示功能的支持：

要使单据列表支持合并显示的功能，主要要对栏目设置功能的进行设置，

单据列表对参照输入的支持

Enum BrowType

BrowNull = 0

UserBrowButton

DblBrowButton

DateBrowButton

BrowCom

End Enum

其值按１递增。

增加对超字段选择范围的支持，也就条件的字节数可以超过 8k 限制

增加对 UAP 结构下分页组件的调用方式,用法如下：

2、将分页的按钮放在所使用的窗体中

3、在数据库中执行脚本，创建分页引擎的存储过程 SPPagediv

Private WithEvents m_pagediv As Pagediv '分页引擎，配合实现单据列表自身的翻页功能。

Call objU8Tbl.InitExternalButton(strCardNum, m_Login)

vlSumNone = 0 '没有合计

vlRecordsum = 1 '记录集合计

vlGridSum = 2 'Grid 合计

vlRecordAndGridsum = 3 '记录集和 Grid 合计

End Enum

VchLst.ReadOnly = Not CBool(1)

VchLst.LoginObj = m_Login

VchLst.FltState = False

VchLst.ShiftUpDown = True ‘是否支持 shift+上下箭头连续选择行

VchLst.HiddenRefreshView = False

VchLst.Title=“列表的标题”

VouchList.TextMatrix(row,col)=“单元格值”

VouchList.LocateState ‘定位状态 True：定位 False：取消定位

VouchList.TopRow ‘纵向滚动后最顶上的当前行号

Call VchLst.InitFlt(m_Login, clsVoucherLst.objFilter, "", "", "", strErrorRes) ‘ 初 始

VchLst.InitHead oColSet.getColInfo() ‘初始化表头 sHeadXml 表头格式信息

VchLst.SetPrintOtherInfo sXML‘设置打印其它信息-表尾

Set domOption = VchLst.GetListDom(False) ‘取得列表对应 dom 对象 bSelect true-