- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]DrawCell事件，求教 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121857)
-- 发布时间：2018/7/14 9:39:00
-- [求助]DrawCell事件，求教
dr = DataTables("检测项目列表").Find("[水剂浆料颜色] = \'" & e.Row("配方名称") & "\'")
If dr IsNot Nothing Then
If e.Row.IsNull(e.Col.Name) = False
If e.Row("浆料颜色") <> "正常" Then
e.Style = "不合格"
Else
" e.Style = "不合格" " 后边代码怎么写， 当在检测项目列表中，水剂浆料颜色列 没找到对应配方名称 的时候 e.style ="不需要"。
-- 发布时间：2018/7/14 10:07:00
--
If e.Row.IsNull(e.Col.Name) = False
If e.Row("浆料颜色") <> "正常" Then
e.Style = "不合格"
Else
dr = DataTables("检测项目列表").Find("[水剂浆料颜色] = \'" & e.Row("配方名称") & "\'")
If dr Is Nothing Then
e.Style = "不需要"
End If
End If
End If
-- 发布时间：2018/7/14 10:25:00
--
dr = DataTables("检测项目列表").Find("[水剂浆料颜色] = \'" & e.Row("配方名称") & "\'")
If dr IsNot Nothing Then
If e.Row.IsNull(e.Col.Name) = False
If e.Row("浆料颜色") <> "正常" Then
e.Style = "不合格"
Else
dr = DataTables("检测项目列表").Find("[水剂浆料颜色] = \'" & e.Row("配方名称") & "\'")
If dr Is Nothing Then
e.Style = "不需要"
此代码已经试过，当找得到时，是能实现“不合格”样式，但当找不到时，不能实现描绘“不需要”样式。
-- 发布时间：2018/7/14 10:28:00
--
去掉全部代码，仅使用2楼的
-- 发布时间：2018/7/14 10:53:00
--
老师，二楼代码，当没找到时，要输入数据才显示“不需要”样式，能不能改成，【当没找到时，没数据也显示“不需要”样式，当没找到时，输入任何数据，显示为"不合格"样式】
此主题相关图片如下：qq截图20180714105018.png
-- 发布时间：2018/7/14 10:59:00
--
If e.Row.IsNull(e.Col.Name) = False
If e.Row("浆料颜色") <> "正常" Then
e.Style = "不合格"
Else
dr = DataTables("检测项目列表").Find("[水剂浆料颜色] = \'" & e.Row("配方名称") & "\'")
If dr Is Nothing Then
e.Style = "不需要"
End If
End If
Else
e.Style = "不需要"
End If