以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何判断多行同编号的某列都为某值？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72318)
--  作者：gdjoss
--  发布时间：2015/7/28 11:28:00
--  如何判断多行同编号的某列都为某值？
如题，我有一个表，表中一列为编号，行是可以同编号的，现在我要判断整个表中哪些编号里的行的D列是否全为A值，全为A值则设置背景为红色，怎么做？
--  作者：有点蓝
--  发布时间：2015/7/28 11:37:00
--  
把条件改为e.Row("编号") = ‘A’

http://www.foxtable.com/help/index.html?n=0656.htm
--  作者：gdjoss
--  发布时间：2015/7/28 11:42:00
--  
可是我要的是某个编号里边的所有行全为A，全为A才对该编号进行操作呀
--  作者：大红袍
--  发布时间：2015/7/28 11:55:00
--  

drawcell事件

 

If e.Row.IsNull("第一列") = False Then
    e.Table.DataTable.AddUserStyle("红色", Color.Red, Color.Black)
    Dim count1 As Integer = e.Table.DataTable.Compute("count(第一列)", "第一列 = \'" & e.Row("第一列") & "\'")
    Dim count2 As Integer = e.Table.DataTable.Compute("count(第一列)", "第一列 = \'" & e.Row("第一列") & "\' and 第二列 = \'a\'")
    If count1 = count2 Then
        e.Style = "红色"
    End If
End If