[求助]设置行背景色（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]设置行背景色（已解决）

共有4375人关注过本帖树形打印复制链接主题：[求助]设置行背景色（已解决）

yyzlxc

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

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

[求助]设置行背景色（已解决） 发帖心情

Post By：2015/4/14 19:54:00 [只看该作者]

“门禁查询”为查询表，对符合条件的行设置背景色，代码在命令窗口运行时出错，任何修改，请各位老师指教，谢谢！！

DataTables("门禁查询").AddUserStyle("a", Color.Red, Color.White)

For Each dr1 As Row In Tables("门禁查询").Rows

Dim dr2 As DataRow = DataTables("门禁信息").Find("时间 = '" & dr1("时间") & "' and 员工编号 = '" & dr1("员工编号") & "'")

If dr2 IsNot Nothing Then

dr1.Style = "a"

End If

此主题相关图片如下：捕获.png

[此贴子已经被作者于2015/4/14 21:49:05编辑过]

有点酸

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

加好友

发短信

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2015/4/14 20:35:00 [只看该作者]

用Drawcell事件才行：

http://www.foxtable.com/help/topics/0656.htm

但是DrawCell事件执行频繁，不应该出现Find，所以最好增加一列，用于存储这个状态，需要的时候重算刷新这个状态列的值。

yyzlxc

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

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2015/4/14 20:38:00 [只看该作者]

谢谢有点酸老师的回复，增加一列，存储什么状态，请老师指教，谢谢！！

有点酸

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

加好友

发短信

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2015/4/14 20:42:00 [只看该作者]

例如增加一列，如果符合条件：

DataTables("门禁信息").Find("时间 = '" & dr1("时间") & "' and 员工编号 = '" & dr1("员工编号") & "'")

那么就将该列的内容设置为1，否则设置为0

yyzlxc

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

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2015/4/14 20:48:00 [只看该作者]

谢谢老师的指教，我试试看，谢谢老师！！

下一主题 >> << 上一主题

主题：[求助]设置行背景色（已解决）