| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请问怎样制作系统菜单中的“标记”按钮？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101504) |
| -- 作者：dogman -- 发布时间：2017/6/1 19:17:00 -- 请问怎样制作系统菜单中的“标记”按钮？ 如题。 试了，在项目事件中的AfterOpenProjectk中加代码： For Each dt As DataTable In DataTables \'各表样式统一设置 DataTables(dt.Name).SysStyles("CurrentRow").BackColor = Color.LawnGreen DataTables(dt.Name).SysStyles("Alternate").BackColor = Color.Gainsboro \'DataTables(dt.Name).SysStyles("ModifiedCell").BackColor = Color.Red ——这一句为什么没用呢？所以试了下一句 DataTables(dt.Name).AddUserStyle("红底白字", Color.Red, Color.White) Next 在全局表事件中的DrawCell中加代码： If e.Row(e.Col.Name) <> e.Row.DataRow.OriginalValue(e.Col.Name) Then e.Style = "红底白字" End If 试了还是没用。只有点了系统菜单中的“标记”才行。笨啊~牛角尖... |
| -- 作者：有点色 -- 发布时间：2017/6/1 20:44:00 -- 你要开启全局表事件
DataTables(dt.name).GlobalHandler.DrawCell = true
你也可以用代码处理
MarkModifedCell = true |