以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于统计问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187565)
--  作者：lin98
--  发布时间：2023/7/27 14:44:00
--  关于统计问题
如何将红字代码改为自定义，选择复选框的分组？


Dim b As New CrossTableBuilder("统计表1", DataTables("表A"))
b.HGroups.AddDef("部门") \'
b.VGroups.AddDef("交货日期", DateGroupEnum.Year, "{0}年") \'
b.VGroups.AddDef("交货日期", "{0}月") \'
b.Totals.AddDef("数量","数量") \'
b.Totals.AddDef("金额","金额") \'
b.VerticalTotal= True \'
b.HorizontalTotal = True \'
Tables("窗口_Table1").DataSource = b.BuildDataSource() \'



For Each s As String In e.Form.Controls("CheckedComboBox1").text.split(",")\'
    b.Groups.AddDef(s)
Next
--  作者：有点蓝
--  发布时间：2023/7/27 14:47:00
--  
b.HGroups.AddDef(s)