以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如果窗口的table  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184812)

--  作者:fvcfox
--  发布时间:2023/1/5 10:19:00
--  如果窗口的table
Dim b As New GroupTableBuilder("统计表1",tj_dtb)
    b.Groups.AddDef("姓名") \'根据产品分组
For Each c2 As Integer In cl2.CheckedIndices
    b.Totals.AddDef(cl2.Items(c2))
Next
\'总计
b.VerticalTotal = True
b.Build \'生成统计表

Tables("统计财_table1").DataSource =DataTables("统计表1")
为什么在Tables("统计财_table1")的BeforeShowContextMenu
无法打开快捷菜单
e.ContextMenu = ContextMenus("tj_tb1_row")

--  作者:有点蓝
--  发布时间:2023/1/5 10:32:00
--  
把窗口表设置为sqlquery,到窗口表事件写代码

b.Build \'生成统计表
Tables("统计财_table1").DataSource =DataTables("统计表1")
上面2句改为
Tables("统计财_table1").DataSource =b.BuildDataSource