专家坐堂-全局表事件设置的DrawCell，在生成的临时汇总表中没有起作用Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  全局表事件设置的DrawCell，在生成的临时汇总表中没有起作用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171043)

--  作者：水墨青花
--  发布时间：2021/8/15 21:04:00
--  全局表事件设置的DrawCell，在生成的临时汇总表中没有起作用
老师，您好：

1. 在全局表的DrawCell中写了如下代码：

If Forms("数据汇总").Opened = False
Return
End If
Dim tbl As Table = Tables("数据汇总_Table1")
With tbl.DataTable.Styles("红色")
.ForeColor = Color.Red
.FontBold = True
End With
tbl.DataTable.GlobalHandler.DrawCell = True

e.Style = "红色"

2. 在Forms(“数据汇总”）的AfterLoad 中添加了 GlobalHandler

Dim tbl As Table = Tables("数据汇总_Table1")
tbl.DataTable.GlobalHandler.DrawCell = True

3. 当数据汇总的窗口生成时，全局表的DrawCell没有执行，表中的数据，并没有变成“红色”。

能帮我看下是哪里出了问题吗？谢谢！

--  作者：有点蓝
--  发布时间：2021/8/15 21:18:00
--

全局表的DrawCell中写了如下代码：

If Forms("数据汇总").Opened andalso e.table.name = "数据汇总_Table1"
With e.table.DataTable.Styles("红色")
.ForeColor = Color.Red
.FontBold = True
End With
e.Style = "红色"
End If

在Forms(“数据汇总”）的AfterLoad 中添加了 GlobalHandler

Dim tbl As Table = Tables("数据汇总_Table1")
tbl.DataTable.AddUserStyle("红色", Color.Red, Color.White)
tbl.DataTable.GlobalHandler.DrawCell = True

--  作者：水墨青花
--  发布时间：2021/8/16 13:26:00
--
十分感谢！