Dim tbl As Table = e.Form.Controls("Table1").Table
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim dr As DataRow
\'生成加载表结构
Dim dtb As New DataTableBuilder("取数目录树设置")
dtb.AddDef("列名", Gettype(String), 16)
dtb.AddDef("年", Gettype(Boolean))
dtb.AddDef("季", Gettype(Boolean))
dtb.AddDef("月", Gettype(Boolean))
dtb.AddDef("周", Gettype(Boolean))
dtb.AddDef("日", Gettype(Boolean))
dtb.AddDef("日期", Gettype(Boolean))
dtb.AddDef("降序", Gettype(Boolean))
dtb.Build()
tbl.DataSource = dtb.BuildDataSource()
tbl.AllowEdit = True
tbl.SetColVisibleWidth("列名|175|年|35|季|35|月|35|周|35|日|35|日期|35|降序|35")
tbl.ShowCheckBox = True