以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自动生成占比问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108152)
--  作者：minxizai
--  发布时间：2017/10/17 13:00:00
--  [求助]自动生成占比问题
If e.Sender.Checked = True Then
Dim g As New GroupTableBuilder("统计表", DataTables("出库明细"))
g.Groups.AddDef("客户名称")
g.Totals.AddDef("数量")
g.Totals.AddDef("金额")
g.Totals.AddDef("毛利")
g.GrandProportion = True
g.FromServer = True
e.Form.Controls("Table1").Table.DataSource = g.BuildDataSource
End If

我只需要毛利占比的话该怎么修改代码？
--  作者：有点甜
--  发布时间：2017/10/17 13:04:00
--  

循环生成的表，把对应列隐藏，如

 

For Each c As Col in e.Form.Controls("Table1").Table.Cols

    If c.caption like "*占比*" AndAlso e.caption like "*毛利*" = false then

        c.visible = False

    End If

Next