- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 重复数据行颜色显示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117359)
-- 发布时间：2018/4/11 11:27:00
-- 重复数据行颜色显示
我写的代码有问题吗？怎么没有显示出重复行来呢？
If 
e.Col.name = "调拨单号" AndAlso e.Row.Isnull("物资编码") = False Then
Dim dr As DataRow = e.Table.DataTable.find("调拨单号 = \'" & e.Row("调拨单号") & "\'and 物资编码 = \'" & e.Row("物资编码") & "\' ")
If dr IsNot Nothing Then
e.Style = "重复"
End If
End If
e.Col.name = "调拨单号" AndAlso e.Row.Isnull("物资编码") = False ThenDim dr As DataRow = e.Table.DataTable.find("调拨单号 = \'" & e.Row("调拨单号") & "\'and 物资编码 = \'" & e.Row("物资编码") & "\' ")
If dr IsNot Nothing Then
e.Style = "重复"
End If
End If
我已经设置重复的表样式了
-- 发布时间：2018/4/11 12:25:00
--
代码没问题，做个实例发上来测试。
-- 发布时间：2018/4/11 14:11:00
--
这是商业版做的，请老师费心指导！谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:显示重复项.rar |
-- 发布时间：2018/4/11 14:52:00
--
怎么回事？需求时段如果是时间，就不行，是字符就可以
-- 发布时间：2018/4/11 15:21:00
--
代码改成
If e.Col.name = "调拨单号" AndAlso e.Row.Isnull("物料代码") = False AndAlso e.Row.Isnull("调拨时段") = False Then
Dim d As Date = e.Row("调拨时段")
Dim dr As DataRow = e.Table.DataTable.find("_Identify <> " & e.Row("_Identify") & " And 调拨单号 = \'" & e.Row("调拨单号") & "\'and 物料代码 = \'" & e.Row("物料代码") & "\' and 调拨时段 = #" & new Date(1900, 1, 1, d.hour, d.Minute, 0) & "# ")
If dr IsNot Nothing Then
e.Style = "重复"
End If
End If