1、 DateBrowButton BrowComEnd Enum其值按递增。增加对超字段选择范围的支持,也就条件的字节数可以超过8k限制增加对UAP结构下分页组件的调用方式,用法如下:其大体调用方式与CS方式下的调用没有太大区别,与CS不同的地方在于要UAP的调用方式要声明一个算法变量,以支持UIP调用后结果集的导入,具体用法详见示例工程的Form2代码增加对枚举类型的支持在U8VouchList中增加分页的功能,用法如下:1、请按原有使用VouchList的方式使用单据列表2、将分页的按钮放在所使用的窗体中3、在数据库中执行脚本,创建分页引擎的存储过程SPPagediv2、U8V11.0 单据
2、列表整合了翻页和快捷过滤功能,同时增强了交互和易用性。如:着色、布局等20多个功能,具体参考 新单据列表迁移指导说明.doc1.2 单据列表示例代码及常用功能说明具体代码示例工程参见:列表测试工程1. 扩展:Private WithEvents m_pagediv As Pagediv 分页引擎,配合实现单据列表自身的翻页功能。Call objU8Tbl.InitExternalButton(strCardNum, m_Login)Call Me.UFToolbar1.SetFormInfo(VchLst, Me) 单据列表及控件与toolbar绑定,以便后续二次开发功能拓展。2. 属性:Vc
3、hLst.SumStyle = vlGridSum 合计方式合计方式枚举Public Enum SumStyleEum vlSumNone = 0 没有合计 vlRecordsum = 1 记录集合计 vlGridSum = 2 Grid合计 vlRecordAndGridsum = 3 记录集和Grid合计VchLst.ReadOnly = Not CBool(1)VchLst.LoginObj = m_LoginVchLst.FltState = FalseVchLst.ShiftUpDown = True 是否支持shift+上下箭头连续选择行VchLst.HiddenRefreshVi
4、ew = FalseVchLst.FillMode = FillOverwrite 填充模式填充模式枚举Public Enum FillModeEnum FillAppend = 0 追加填充 FillOverwrite = 1 覆盖填充VchLst.Title=“列表的标题”VouchList.TextMatrix(row,col)=“单元格值” VouchList.LocateState 定位状态 True:定位False:取消定位VouchList.TopRow 纵向滚动后最顶上的当前行号3. 方法:Call VchLst.InitFlt(m_Login, clsVoucherLst.o
5、bjFilter, , , strErrorRes) 初始化过滤对象VchLst.InitHead oColSet.getColInfo() 初始化表头 sHeadXml表头格式信息VchLst.SetPrintOtherInfo sXML 设置打印其它信息-表尾Set domOption = VchLst.GetListDom(False) 取得列表对应dom对象 bSelect true-返回选中行dom对象 false-返回整个列表dom对象sXML = Me.VchLst.GetColumnWidthXML() 获取被调整列宽或列序的栏目串VchLst .SetFormatString
6、 fdtrate0.000000 、VchLst.DoFormat 设置格式化信息VchLst.ClearDataSource 解除数据邦定VchLst.SetVchLstRst vltable.DataRecordset 设置表体记录集VchLst.RecordCount = vltable.DataCount 设置列表全部数据集记录数VchLst.SetSumRst rstSum 合计记录集Call VchLst.BindPagediv(m_pagediv) 分页引擎邦定VchLst.AdJustGridWidth 作废VchLst.ProtectUnload() 数据合法性检查。当前对象
7、状态安全检查,可在执行某些上层功能时调用。如增加/删除功能、窗口Form_QueryUnload事件等地方Private Sub ButtonClick(strButtonKey As String) If VchLst.ReadOnly = False Then If VchLst.ProtectUnload() 2 Then Exit Sub End IfEnd If Call VchLst.ShowVoucherDesign(strPrintCardnum, ipvtidStr, SA) 打印模板设计界面VchLst.AddItem , VchLst.rows 增加项目VchLst.Sh
8、owBatchModify 调用这个方法显示批量修改窗口/VchLst.AllSelect/VchLst.AllNonelngMainCol = VchLst.GridColIndex(strMainKey) 根据关键字来获取所在列的索引VchLst.Find 查找:在定位状态下,查找下一个VchLst.InitPrintSetup strPrnXml 初始化打印设置VouchList.VchLstPreview 预览VchLst.GetGridBody().XXX 引用UFSpGrid2.ocx,用于直接操作UFSpGrid2控件VchLst.GetGridBody().GetGridBod
9、y().XXX 引用vsflexgrid.ocx,用于直接操作vsflexgrid控件VouchList.Locate 定位Set domLine = VouchList.GetBodyLine(iRow) 根据行索引取得表体行dom对象4. 事件:Private Sub VchLst_AfterColumnsDisplayRule() 着色后事件Private Sub VchLst_BatchModify(sItemXML As String) 批改窗口弹出前,对传入批改窗口的xml进行再构造,比如设置参照类型等Private Sub VchLst_BrowUser(RetValue As
10、Variant, row As Long, Col As Long) 单元格编辑参照事件Private Sub VchLst_CellValueChanged(ByVal row As Integer, ByVal Col As Integer, NewValue As Variant, OldValue As Variant, KeepFocus As Boolean) 单元格内容变化检查事件Private Sub VchLst_DblClick() 双击Private Sub VchLst_FillList(ByVal r As Long, ByVal c As Long, pCom As
11、 Object) 单元格编辑下拉事件Private Sub VchLst_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)Private Sub VchLst_PrintSettingChanged(ByVal varLocalSettings As Variant, ByVal varModuleSettings As Variant) 打印信息改变时触发Private Sub VchLst_RowColChange() 单据列表支持切换行功能Priva
12、te Sub VchLst_SelectClick2(ByVal Selected As Boolean, ByVal row As Long) SelectClick和SelectClick2使用一个就可以了,而且SelectClick2要逐渐替代SelectClickPrivate Sub VchLst_CopySelect(bAuther As Boolean) 增加copy to cliborad的功能 ,返回权限。Private Sub VouchList_BeforeSendCommand(cmdType As U8VouchList.UFCommandType, pageSize
13、 As Long, pageCurrent As Long) 列表翻页事件2. 列表控件原有功能说明2.1 特性 列表控件的安装位置:U8SOFTufcomsqlU8VouchList.ocx 列表控件主要用于初报表外的表格样式的展示,包括单据列表、生单列表、个别档案列表等等。 列表控件主要和栏目控件配合使用,也可以单独使用。 列表控件具备编辑能力,支持文本、数字、下拉框、参照等输入方式。 下面介绍列表控件的属性、方法、事件。2.2 属性BottomRow属性 说明: 获取当前显示区域最后一行的索引。只读属性。 语法: VouchList1. BottomRow 参数说明:无 返回值: 当前显
14、示区域最后一行的索引ColPoint属性 获取与设置某列的小数位数。 VouchList1. ColPoint (cFld) = value as long VouchList1:控件名称 cFld:列的字段名 Value:小数位数EditLocked属性 获取或设置控件是否被编辑锁定,锁定后将不能编辑。 VouchList1. EditLocked () = value as Booleantrue锁定,不能编辑,false不锁定,可编辑。FrozenCols属性 获取或设置列表控件冻结列的个数。 VouchList1. FrozenCols () = value as Long冻结列的个数
15、IsSumSelectedRows属性 获取和设置是否只对选中行进行合计。 VouchList1. IsSumSelectedRows () = value as Boolean控件名称。true-只对打上“Y”的行进行合计;false对所有行进行合计。LeftCol属性 获取和设置当前显示区域最左侧列的索引。 VouchList1. LeftCol = value as Long当前显示区域最左侧列的索引LoginObj属性 获取和设置登录对象,在批改时需要登录对象。 如果使用批量替换必须设置该属性,而且在调用ShowBatchModify之前必须设置好,如果不使用批量替换,可以不设置。 V
16、ouchList1. LoginObj = value as Object当前U8的登录对象ReadOnly属性 获取和设置控件是否只读。 VouchList1. ReadOnly = value as Booleantrue只读 false可编辑RightCol属性 获取当前显示区域最右侧列的索引。 VouchList1. RightCol 无ShiftUpDown属性 获取和设置是否支持shift+上下箭头连续选择行。 VouchList1. ShiftUpDown= value as Boolean当前控件对象。true支持 false不支持。ShowSelCol属性 获取和设置是否显示
17、选择列。 VouchList1. ShowSelCol= value as Booleantrue显示选择列 false不显示选择列。SortASC属性 获取和设置当前排序是升序还是降序。 VouchList1. SortASC= value as Booleantrue表示升序 false表示降序。SortCol属性 获取当前排序列的列号,如果返回值为-1表示没有排序列(还没有使用过排序)。 VouchList1. SortColSumRows属性 获取和设置合计(小计)行的行数。 有些合计行是业务组加进去的,不是用的SumStyle属性,这种情况处理选择行时就会把这样的行选中。增加这个属性
18、后,业务组代码就可以更改合计行的行数,从而在选择行时排除这些行。 注意:合计行必须是在末尾 VouchList1. SumRows= value as Long有多少个合计行。SumStyle属性 如果需要连续使用addline增加行,将会频繁地调用GridAutoSum(addline内调用)导致效率下降。 解决办法:程序员在连续调用addline之前,把sumstyle设置为sumnone,调用addline结束后,再赋回原来的合计方式。示例代码如下: dim OldSumStyle As SumStyleEum OldSumStyle = Vouchlist.SumStyle Vouch
19、List.SumStyle = SumStyleEum.vlSumNone . VouchList.SumStyle = OldSumStyle VouchList1. SumStyle= value as SumStyleEum Public Enum SumStyleEum vlSumNone = 0 vlRecordsum = 1 vlGridSum = 2 vlRecordAndGridsum = 3 End Enum TextMatrixName属性说明: 返回表体中某一单元格的值,如果是枚举值,则返回枚举名称语法: VouchList1.TextMatrixName(row as
20、long,col as long)参数说明: Row:行索引 Col:列索引TopRow属性 获取和设置当前显示区域最顶端行的索引。 VouchList1. TopRow = value as Long当前显示区域最顶端行的索引2.3 方法AddLine方法 根据传入dom对象新增加一行,内部要调用AddItem方法。 Function AddLine(ByVal row As Long, ByVal oDom As DOMDocument) As Boolean 插入行索引,在该行后插入新增行 oDom: 行dom对象成功返回true,失败返回false。AddSumLine方法 说明: 根
21、据传入dom对象新增加一行合计行. Public Function AddSumLine(ByVal row As Long, ByVal oDom As DOMDocument) As Boolean插入行索引,在该行后插入新增行行dom对象 成功返回true,失败返回false。CalcSum方法 重新计算合计行的数值。 Public Sub CalcSum()DisableTextMatrix方法 设置单元格是否可用,不可用后,既不能手工输入,也不能通过textmatrix赋值。 Public Sub DisableTextMatrix(ByVal bDisable As Boolean
22、, ByVal sIndex As String, ByVal row As Long) bDisable: true-disable false-enable sIndex: 列索引(字符串) row: 行索引(数值)GetBodyLine方法 根据行索引取得表体行dom对象。 Public Function GetBodyLine(ByVal row As Long) As DOMDocument 行dom对象,其中包含行中的数据。GetColIndex方法 根据列的字段名称取列的顺序号。 Public Function GetColIndex(ByVal ColName As Strin
23、g) As Long ColName: 列的字段名称 列的顺序号。GetColName方法 根据列的顺序号取列的字段名称。 Public Function GetColName(ByVal ColIndex As Long) As String 列的顺序号 列的字段名称。GetGridBody方法 获取列表控件封装的SuperGrid控件。 Public Function GetGridBody() As Object SuperGrid控件对象。GetHeadLine方法 取得标题行的dom对象。 Public Function GetHeadLine() As DOMDocument 标题
24、行的dom对象。GetListDom方法 取得列表数据的dom对象。 Public Function GetListDom(ByVal bSelect As Boolean) As DOMDocument bSelect:true-返回选中行dom对象 false-返回整个列表dom对象 列表数据的dom对象HideCaption方法 隐藏列表的标题,如销售订单列表的标题“销售订单列表”。 Public Sub HideCaption()Locate方法 弹出定位窗口,根据输入的条件定位。 Public Sub Locate(ByVal LocState As Boolean) LocState:true-定位 false-取消定位 无。ProtectUnload方法 当前对象状态安全检查,可在执行某些上层功能时调用。如增加/删除功能、窗口Form_QueryUnload事件等地方 Public Function ProtectUnload() As OpType Enum OpType dbCandel = 0取消操作 dbRetry-
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1