DrawCell问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → DrawCell问题

共有2135人关注过本帖树形打印复制链接主题：DrawCell问题

表叔

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：94 积分：1644 威望：0 精华：0 注册：2016/12/22 18:08:00

DrawCell问题 发帖心情

Post By：2018/9/28 15:11:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:芜湖力钧工资表.table

If e.Col.Name = "用工状态" Then

If e.Row("用工状态") = "退休聘用" Then

e.Table.DataTable.AddUserStyle("退休聘用", Color.Gold, Color.Black)

e.Style = "退休聘用"

End If

If e.Row("用工状态") = "即将退休" Then

e.Table.DataTable.AddUserStyle("即将退休", Color.SpringGreen, Color.Black)

e.Style = "即将退休"

End If

If e.Row("用工状态") = "离职" Then

e.Table.DataTable.AddUserStyle("离职", Color.Red, Color.Black)

e.Style = "离职"

End If

这是全局表DrawCell里的代码，但只对其中一张表起作用，需要全部起作用

[此贴子已经被作者于2018/9/28 15:39:59编辑过]

表叔

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：94 积分：1644 威望：0 精华：0 注册：2016/12/22 18:08:00

Post By：2018/9/28 15:38:00 [显示全部帖子]

If e.Col.Name = "用工状态" Then

If e.Row("用工状态") = "退休聘用" Then

e.Table.DataTable.AddUserStyle("退休聘用", Color.Gold, Color.Black)

e.Style = "退休聘用"

End If

If e.Row("用工状态") = "即将退休" Then

e.Table.DataTable.AddUserStyle("即将退休", Color.SpringGreen, Color.Black)

e.Style = "即将退休"

End If

If e.Row("用工状态") = "离职" Then

e.Table.DataTable.AddUserStyle("离职", Color.Red, Color.Black)

e.Style = "离职"

End If

这是在全局表DrawCell中的代码，但不能对所有表起作用

主题：DrawCell问题