- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 临时表字体大小问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143977)
-- 发布时间：2019/12/7 23:01:00
-- 临时表字体大小问题
临时表中，设置了字体大小。第一次点按钮运行正常，第二次之后再运行又变回去了。
Functions.Execute("PDataTableStyle",DataTables("统计"))
With Tables(e.Form.Name & "_Table1").DataSource =DataTables("统计")
.AutoSizeCols()
.Font=FntTable
End With
-- 发布时间：2019/12/8 21:18:00
--
我测试没有问题，请上传实例说明
-- 发布时间：2019/12/13 8:00:00
--
两次运行情况不一样
此主题相关图片如下：15.jpg
此主题相关图片如下：16.jpg
-- 发布时间：2019/12/13 8:11:00
--
这是另一个临时表，也会出现同样问题，不知道哪儿出了问题？过程是，建立临时表、给临时表赋值、设置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("已开票", Gettype(Double))
dtb.AddDef("未开票", Gettype(Double))
dtb.AddDef("已收款", Gettype(Double))
dtb.AddDef("开票未收", 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
-- 发布时间：2019/12/13 8:34:00
--
我测试没有问题哦
