如何让新生成的窗口中的TABLE自动列宽 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：列太宽了.jpg

已上传图片.

代码如下想实现列宽根据值自动列宽,现在出来的列太宽了.
图片点击可在新窗口打开查看

此主题相关图片如下：自动列宽效果.jpg

Dim g As New CrossTableBuilder("时段统计人数", DataTables("统计表时段人数"))

g.Caption = "时段统计人数"

g.HGroups.AddDef("时段")

g.VGroups.AddDef("日期", DateGroupEnum.Day, "{0}日")

g.Totals.AddDef("人数", "人数")

g.Build()

Dim tbl As WinForm.Table

tbl = e.Form.CreateTable("Table1", "时段统计人数", True)

'tbl.SetBounds(0, 130, 1200, 600) '手动大小

tbl.Dock = System.Windows.Forms.DockStyle.Fill '自动大小

tbl.Table.ExtendLastCol = True

'tbl.Table.AutoSizeCols()

e.Form.Controls("Panel1").AddControl(tbl)

主题：如何让新生成的窗口中的TABLE自动列宽