主题：两张表结构相同找出不同的数据并标色

Drawcell写代码

If e.Col.name <> "第一列" Then
    Dim fdr As DataRow = DataTables("表B").Find("第一列 = '" & e.Row("第一列") & "'")
    If fdr IsNot Nothing AndAlso fdr(e.Col.Name) <> e.Row(e.Col.Name) Then
        e.style = "样式1"
    End If
End If

http://www.foxtable.com/help/topics/0656.htm