以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  两个表 核对数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105974)
--  作者：zchlln
--  发布时间：2017/8/30 9:41:00
--  两个表 核对数据
表A和表B 根据单号列核对该行的所有信息数据  如果两个表的信息一致 则不变化 如果不一致 单元格颜色变化 代码应该怎么写
？
--  作者：有点甜
--  发布时间：2017/8/30 9:47:00
--  

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

[此贴子已经被作者于2017/8/30 9:47:24编辑过]
--  作者：zchlln
--  发布时间：2017/8/30 10:25:00
--  
这个和我的需求 有些不一样 我这面想要和对 对应行的各列数据是否一致 如果不一致 在表B的单元格上 颜色变动哪个不一样 哪个单元格变动
--  作者：有点甜
--  发布时间：2017/8/30 10:41:00
--  
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