以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]GroupTableBuilder先定义后赋值问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187804)
--  作者：小美菜
--  发布时间：2023/8/13 7:20:00
--  [求助]GroupTableBuilder先定义后赋值问题
GroupTableBuilder不能实现先定义，后赋值？如下列代码， “tbl = GroupTableBuilder(tblMod & tMenu.Name , DataTables(tblName))”报错
Dim tbl As GroupTableBuilder
Select Case tblMod
    Case "分析库" : tbl = GroupTableBuilder(tblMod & tMenu.Name , DataTables(tblName))
        Select Case tMenu.Name
            Case "查代码重复":grpCols = "编码|代码|单项|单位|分部|分项|工序"
                tFilter = "代码 <>\'\' And Count(代码)>1"
                tSort = "编码,代码"
        End Select
    Case "钢铁库" : tbl= GroupTableBuilder(tblMod & tMenu.Name , DataTables(tblName))
      Select Case tMenu.Name
            Case "重复钢材":grpCols = "编码|代码|单项|单位|分部|分项|工序"
                tFilter = "代码 <>\'\' And Count(代码)>1"
                tSort = "编码,代码"
        End Select
End Select
aGrpCol = grpCols.Split("|")
For Each tGrp As String In aGrpCol
    tbl.Groups.AddDef(tGrp)
Next
--  作者：有点蓝
--  发布时间：2023/8/13 19:58:00
--  
不要放到和case同一行
    Case "分析库" 
         tbl = GroupTableBuilder(tblMod & tMenu.Name , DataTables(tblName))