以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  判断两张表指定列是否有相同内容，不一样的用错误提示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103741)
--  作者：wu725
--  发布时间：2017/7/16 7:37:00
--  判断两张表指定列是否有相同内容，不一样的用错误提示
我想建一个审核按钮，点击按钮，审核B表中识别号与A表识别号列内容是否相同，如果相同不显示提示错误，如果不同在B表识别号列，找出不同行并出现红色错误提示，如果B表修改内容后找到相同的，提示自动取消。求代码，谢谢！
--  作者：有点甜
--  发布时间：2017/7/16 11:04:00
--  

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