以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]分组统计表的列宽怎样设定？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51725)
--  作者：竹林笛声
--  发布时间：2014/6/2 7:37:00
--  [求助]分组统计表的列宽怎样设定？
求助大虾，分组统计表的列宽怎样设定？
--  作者：y2287958
--  发布时间：2014/6/2 7:59:00
--  
你想怎么设定？
--  作者：竹林笛声
--  发布时间：2014/6/2 8:08:00
--  

默认表宽超出屏幕范围：

想在以下代码中加入一条，设定列宽：

 

Dim g As New GroupTableBuilder("6月份工时统计", DataTables("工时记录"))

g.Filter = "[月份]= \'6\'"

g.Groups.AddDef("姓名")

g.Totals.AddDef("产品定额")
g.Totals.AddDef("产品实动")
g.Totals.AddDef("lzd")
g.Totals.AddDef("lzs")
g.Totals.AddDef("lwd")
g.Totals.AddDef("lws")
g.Totals.AddDef("lnd")
g.Totals.AddDef("lns")
g.Totals.AddDef("lqd")
g.Totals.AddDef("lqs")
g.Totals.AddDef("lss")
g.Totals.AddDef("ljs")
g.Totals.AddDef("合计定额")
g.Totals.AddDef("合计实动")
g.Totals.AddDef("超额率",AggregateEnum.Average,"超额率")

g.VerticalTotal = True
g.Build()
MainTable = Tables("6月份工时统计")

Forms("返回").OpenTo("6月份工时统计")
Forms("返回").Controls("TextBox1").Value = "提示: 月份工时统计。"
MainTable.ShowCell(0, 0) \'显示第一行
MainTable.Focus()
--  作者：竹林笛声
--  发布时间：2014/6/2 11:42:00
--  
急等帮助，高人赐教！！
--  作者：狐狸爸爸
--  发布时间：2014/6/3 9:54:00
--  

1、必须生成之后统计表之后设置列宽。

 

2、单列设置：

http://www.foxtable.com/help/topics/0566.htm

 

3、批量设置：

http://www.foxtable.com/help/topics/1775.htm