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

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