主题：重复数据行颜色显示

代码改成

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