主题：两个表 核对数据

表A和表B 根据单号列核对该行的所有信息数据  如果两个表的信息一致 则不变化 如果不一致 单元格颜色变化 代码应该怎么写

DrawCell事件

 

If e.Row.IsNull("型号") = False Then
    Dim fdr As DataRow = DataTables("表B").Find("型号 = '" & e.Row("型号") & "'")
    If fdr Is Nothing Then
        e.Table.DataTable.AddUserStyle("样式1", Color.red, color.black)
        e.style = "样式1"
    End If
End If

这个和我的需求 有些不一样 我这面想要和对 对应行的各列数据是否一致 如果不一致 在表B的单元格上 颜色变动哪个不一样 哪个单元格变动

Select Case e.Col.name
    Case "第一列", "第二列", "第三列"
        Dim fdr As DataRow = DataTables("表B").Find("型号 = '" & e.Row("型号") & "'")
        If fdr IsNot Nothing Then
            If fdr(e.Col.name ) <> e.Row(e.Col.name) Then
                e.Table.DataTable.AddUserStyle("样式1", Color.red, color.black)
                e.style = "样式1"
            End If
        End If
End Select