以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]行颜色问题请教  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69869)

--  作者:307587760
--  发布时间:2015/6/12 0:38:00
--  [求助]行颜色问题请教
请问老师:
假设我有两张表A、B,这两个表之间是继承关系,
B表的第1列,第2列,第3列继承A表的第1列,第2列,第3列

我现在 想让用户点击查错按钮后 对继承错误行进行标记,即:B表的第1列不等于A表第1列,或B表第2列不等于A表第2列,或B表第3列不等于A表第3列
在论坛搜到的都是在Drawcell中进行处理,但是我发现这个方法好像不太适合我
其一:我的设计思路是用户点击某个按钮后执行标记处理,而不是在加载表的时候就处理
其二:我假设的是我有两张表,实际上我有十多张表,每张表的每行都要进行遍历,这样速度会很慢,如果再对每个单元格进行颜色处理,我估计效率会很低
所以特来请教各位老师,有没有对整行进行颜色赋值的方法,或者有更好的思路,还望不吝赐教!
以下是我两张表的处理代码:

\'对父子表进行检查
For i As Integer=0 To Tables("原始合同目录").Rows.Count-1\'遍历父表每行数据
    OriginalID =Tables("原始合同目录").Value(i,"本行ID")
    drs = DataTables("一拆合同目录").Select("[父ID] = " & OriginalID )\'查找子表和父表关联的数据
    If drs IsNot Nothing Then
        For Each dr As DataRow In drs
            If dr("开发项目") =Tables("原始合同目录").Value(i,"开发项目") And dr("乙方")=Tables("原始合同目录").Value(i,"乙方") And dr("父合同名称")=Tables("原始合同目录").Value(i,"合同名称") Then\'检查父子表关联数据的关联值是否相同
            Else
                \'关联值不相同的行进行标记(此处应该如何处理?)

            End If
        Next
    End If
Next

--  作者:狐狸爸爸
--  发布时间:2015/6/12 8:57:00
--  

方法一:

你可以增加一个逻辑列,不符合的行,将此逻辑列设置为True即可。

 

方法二:

如果不想增加列,也可以:

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