主题：判断两张表指定列是否有相同内容，不一样的用错误提示

我想建一个审核按钮，点击按钮，审核B表中识别号与A表识别号列内容是否相同，如果相同不显示提示错误，如果不同在B表识别号列，找出不同行并出现红色错误提示，如果B表修改内容后找到相同的，提示自动取消。求代码，谢谢！

drawcell事件直接比较

 

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