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("统计报表")继承过来