以文本方式查看主题

-  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