- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 设置列宽 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116785)
-- 发布时间：2018/3/31 0:48:00
-- 设置列宽
此主题相关图片如下：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
-- 发布时间：2018/3/31 9:03:00
--
http://www.foxtable.com/webhelp/scr/0566.htm
Tables("其它采购月报表_Table1").Cols("供应商").Width = 150