以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  我如何给如下窗口设置格式呀  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124629)
--  作者：susu312
--  发布时间：2018/9/10 23:17:00
--  我如何给如下窗口设置格式呀

Tables("统计1").Select(-1,-1)
\'b.Build \'生成统计表
forms("统计表").Open
forms("统计表").controls("Table1").Table.DataSource = b.BuildDataSource()
forms("统计表").controls("Table1").Table.Select(-1,-1)


\'格式设置
\'For Each c As Col In Tables("统计表1").Cols
    \'c.TextAlign  = TextAlignEnum.Center
\'Next
--  作者：有点蓝
--  发布时间：2018/9/10 23:21:00
--  
dim t as table = forms("统计表").controls("Table1").Table
t.DataSource = b.BuildDataSource()
t.Select(-1,-1)

For Each c As Col In t.Cols
    c.TextAlign  = TextAlignEnum.Center
Next