For Each c As object In e.Form.Controls
If Typeof c Is WinForm.Table Then '判断控件是否是文本框
Dim t As Table = c.Table '使用特定类型的变量引用控件
t.DataTable.DeleteFor("")
t.DataTable.GlobalHandler.CurrentChanged = False
t.DataTable.GlobalHandler.PositionChanged= False
t.DataTable.GlobalHandler.AfterSelChange= False
t.DataTable.GlobalHandler.AfterSelRangeChange= False
t.DataTable.AddUserStyle("浅红", Color.MistyRose, Color.black)
t.DataTable.AddUserStyle("浅蓝", Color.LightSkyBlue, Color.black)
t.DataTable.AddUserStyle("浅黄", Color.PapayaWhip, Color.black)
t.DataTable.AddUserStyle("浅绿", Color.LightGreen, Color.black)
End If
Next
某个窗体中我有多个查询表，在窗体afterload中我加了这样的代码
但是貌似全局表事件还是会执行，怎么破？
加好友 
发短信
Post By：2018/7/10 10:16:00 [显示全部帖子]
