蓝总：下午好！】Dim kpis() As String = e.Form.Controls("CheckedComboBox1").Text.Split(",")
Dim g As New GroupTableBuilder("统计表1", DataTables("部门分解指标完成情况"), "分解后指标 in ('" & String.join("','", kpis) & "') and 月份 = max(月份)")
'g.Groups.AddDef("月份")
g.Groups.AddDef("分解后指标", "指标")
g.Totals.AddDef("完成情况", "完成情况")
g.Groups.AddDef("单位")
g.Build()
'MainTable = Tables("统计表1")
Dim t As Table = e.Form.Controls("Table1").Table
t.DataSource = g.BuildDataSource
Tables("数据展示_Table1").SetColVisibleWidth("指标|200|单位|60|完成情况|160")
Tables("数据展示_Table1").SysStyles("Normal").ForeColor = Color.Blue
--------------------------------
为什么数据展示时，会每隔一行字体颜色有变化
此主题相关图片如下：微信截图_20221205162911.png
加好友 
发短信
Post By：2022/12/3 20:51:00 [只看该作者]
