以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口中绑定Normal型非副本临时表如何列居中？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105919)
--  作者：hqy168168
--  发布时间：2017/8/29 10:59:00
--  窗口中绑定Normal型非副本临时表如何列居中？
Dim LSdb As New DataTableBuilder("统计报表")
LSdb.AddDef("公司名称",Gettype(String))
LSdb.AddDef("姓名",Gettype(String))
LSdb.AddDef("姓性别",Gettype(String))
LSdb.Build()
Dim r As Row = Tables("统计报表").AddNew()
r("公司名称") = "aaa"

            For Each c As Col In Tables("统计报表").Cols
                c.TextAlign = TextAlignEnum.Center
            Next
            Dim tbctl As WinForm.Table = e.Form.Controls("Table")
            Dim tb As Table = tbctl.Table        \'tb为Normal非副本                           
            tb.DataSource = DataTables("统计报表")
            tb.AllowEdit = False
            tb.UseVisualStyle = False
            e.Form.Controls("Table").Visible = True
            Tables("统计报表").UseVisualStyle = False
            DataTables("统计报表").SysStyles("EmptyArea").BackColor = Color.White

执行后，Tables("统计报表")数据居中了，但是窗口中的tb没有居中，且列宽也跟Tables("统计报表")中的不一致。
看起来窗口汇总的一切属性没有从Tables("统计报表")继承过来
--  作者：有点甜
--  发布时间：2017/8/29 11:41:00
--  
For Each c As Col In tbctl.Table.Cols
    c.TextAlign = TextAlignEnum.Center
Next