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
加好友 
发短信
Post By：2017/11/16 16:07:00 [显示全部帖子]
