这是另一个临时表，也会出现同样问题，不知道哪儿出了问题？过程是，建立临时表、给临时表赋值、设置datatable的样式、设置窗体table的样式；第一次显示时是正常的，第二次刷新时就变回原样了。蓝大师帮忙看看，谢谢~
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("合同内部编号", Gettype(String), 16)
dtb.AddDef("年", Gettype(String), 16)
dtb.AddDef("月", Gettype(String), 16)
dtb.AddDef("合同金额", Gettype(Double))
dtb.AddDef("已开piao", Gettype(Double))
dtb.AddDef("未开piao", Gettype(Double))
dtb.AddDef("已收款", Gettype(Double))
dtb.AddDef("开piao未收", Gettype(Double))
dtb.AddDef("应收款", Gettype(Double))
dtb.Build()
Functions.Execute("PDataTableStyle",DataTables("统计"))
With Tables(e.Form.Name & "_Table1")
.DataSource =DataTables("统计")
.AutoSizeCols()
.Font=FntTable
End With
Functions.Execute("PTableStyle",Tables(e.Form.Name & "_Table1"))
以下是公共函数--PDataTableStyle
Dim PDataTable As DataTable = Args(0)
With PDataTable
.SysStyles("EmptyArea").BackColor =Color.White
.SysStyles("Alternate").BackColor = Color.SeaShell
.SysStyles("Normal").BackColor = Color.Gainsboro
.SysStyles("Highlight").BackColor = Color.CornflowerBlue
End With
加好友 
发短信
Post By：2019/12/7 23:01:00 [只看该作者]
此主题相关图片如下：15.jpg
