Foxtable(狐表)用户栏目专家坐堂 → 请问怎样制作系统菜单中的“标记”按钮?


  共有1734人关注过本帖树形打印复制链接

主题:请问怎样制作系统菜单中的“标记”按钮?

帅哥哟,离线,有人找我吗?
dogman
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:1036 威望:0 精华:0 注册:2013/9/2 18:25:00
请问怎样制作系统菜单中的“标记”按钮?  发帖心情 Post By: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

试了还是没用。只有点了系统菜单中的“标记”才行。笨啊~牛角尖...

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/1 20:44:00 [只看该作者]

你要开启全局表事件

 

DataTables(dt.name).GlobalHandler.DrawCell = true

 

你也可以用代码处理

 

MarkModifedCell = true
For Each t As Table In Tables
    t.Refresh
Next


 回到顶部