- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]设置行背景色（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=66842)
-- 发布时间：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
Next
此主题相关图片如下：捕获.png
[此贴子已经被作者于2015/4/14 21:49:05编辑过]
-- 发布时间：2015/4/14 20:35:00
--
用Drawcell事件才行：
http://www.foxtable.com/help/topics/0656.htm
但是DrawCell事件执行频繁，不应该出现Find，所以最好增加一列，用于存储这个状态，需要的时候重算刷新这个状态列的值。
-- 发布时间：2015/4/14 20:38:00
--
谢谢有点酸老师的回复，增加一列，存储什么状态，请老师指教，谢谢！！
-- 发布时间：2015/4/14 20:42:00
--
例如增加一列，如果符合条件：
DataTables("门禁信息").Find("时间 = \'" & dr1("时间") & "\' and 员工编号 = \'" & dr1("员工编号") & "\'")
那么就将该列的内容设置为1，否则设置为0
-- 发布时间：2015/4/14 20:48:00
--
谢谢老师的指教，我试试看，谢谢老师！！