以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]颜色标记  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109669)
--  作者：积水成渊
--  发布时间：2017/11/16 15:57:00
--  [求助]颜色标记
新建了A，B两张数据表，A表字段有工号，基本工资，B表的字段也是工号，基本工资，A表的的10个员工（工号1到10），表B有10个员工（1到10）
如何A表的员工基本工资有数据，而B表的员工基本工资没有数据，那么B表的这个员工这行数据进行标红，求大神帮助
--  作者：有点甜
--  发布时间：2017/11/16 16:07:00
--  
If e.Col.name = "第二列" Then
    If e.text = Nothing Then
        Dim fdr As DataRow = DataTables("表A").find("第一列 = \'" & e.Row("第一列") & "\'")
        If fdr IsNot Nothing Then
            If fdr("第二列") <> Nothing Then
                e.Table.DataTable.AddUserStyle("红", color.red, color.black)
                e.style = "红"
            End If
        End If
    End If
End If