此主题相关图片如下：1.png
这是一个临时统计表，比如要设置供应商列宽 ，在下面供应商这块怎么加代码呢
Select Case Value
Case "全部"
Dim g As New CrossTableBuilder("统计表1", DataTables("其它采购总表"))
Dim cg As fxDataSource
g.HGroups.AddDef("供应商")
g.VGroups.AddDef("日期",DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("日期", "{0}月")
g.Totals.AddDef("总金额","金额")
g.Totals.AddDef("日期",AggregateEnum.Count,"采购单数")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Build()
cg=g.BuildDataSource
'Tables("供应商订货月报表_Table1").Visible = True
Tables("其它采购月报表_Table1").DataSource = cg
加好友 
发短信
Post By：2018/3/31 0:48:00 [显示全部帖子]
