- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 表格整行绘制怎么处理 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117478)
-- 发布时间：2018/4/13 10:31:00
-- 表格整行绘制怎么处理
If 
e.Col.name = "物资编码" AndAlso e.Row.Isnull("供应商") = False AndAlso e.Row.Isnull("来料单号") = False Then
Dim dr As DataRow = e.Table.DataTable.find("物资编码 = \'" & e.Row("物资编码") & "\' and 供应商= \'" & e.Row("供应商") & "\'and 来料单号= \'" & e.Row("来料单号") & "\'and _Identify <> \'" & e.Row("_Identify") & "\'")
If dr IsNot Nothing Then
e.Style = "重复"
End If
End If
这个代码只能绘制单元格，如果想整行都改变颜色，该咋改呢？谢谢老师们了
Dim dr As DataRow = e.Table.DataTable.find("物资编码 = \'" & e.Row("物资编码") & "\' and 供应商= \'" & e.Row("供应商") & "\'and 来料单号= \'" & e.Row("来料单号") & "\'and _Identify <> \'" & e.Row("_Identify") & "\'")
If dr IsNot Nothing Then
e.Style = "重复"
End If
End If
这个代码只能绘制单元格，如果想整行都改变颜色，该咋改呢？谢谢老师们了
-- 发布时间：2018/4/13 10:32:00
--
把这个删除即可 e.Col.name = "物资编码" AndAlso
-- 发布时间：2018/4/13 10:38:00
--
谢谢老师的指导，完美！