以文本方式查看主题

-  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=46600)
--  作者：xiaofengfeng
--  发布时间：2014/2/26 9:50:00
--  表格中有一个单元格是空的怎么样单击一个按纽让单元格显示为红色
求解
--  作者：Bin
--  发布时间：2014/2/26 9:52:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=18917&authorid=0&page=0&star=3
--  作者：xiaofengfeng
--  发布时间：2014/2/26 9:59:00
--  
 还是不理解  求明确代码啊
--  作者：Bin
--  发布时间：2014/2/26 10:02:00
--  
请认真看完 后面有例子的.  不要扫一眼就完事啊.太浮躁了吧
--  作者：xiaofengfeng
--  发布时间：2014/2/26 10:06:00
--  

If e.DataCol.name = "数量"
    For Each cl As Col In CurrentTable.Cols
        Dim r As Integer = Tables("表A").FindRow(e.DataRow)+1
        If e.DataRow("数量") < 60
            Tables("表A").SetHeaderCellBackColor(cl.name,Color.Red,r)
        ElseIf e.DataRow("数量") > 85
            Tables("表A").SetHeaderCellBackColor(cl.name,Color.Green,r)
        Else
            Tables("表A").SetHeaderCellBackColor(cl.name,Color.White,r)
        End If
    Next
End If
--  作者：xiaofengfeng
--  发布时间：2014/2/26 10:06:00
--  
  是这个么   怎么改一下
--  作者：Bin
--  发布时间：2014/2/26 10:08:00
--  
你看一下23楼的例子.
--  作者：xiaofengfeng
--  发布时间：2014/2/26 10:20:00
--  
   还是不解 BIN老师您还是直接给我代码吧
--  作者：Bin
--  发布时间：2014/2/26 10:22:00
--  
我给你的代码,会和例子的有区别吗? 无区别的, 例子的你不懂,为啥我给你的你就会懂了.  没有任何道理.

既然如此,你直接把你的例子发上来,我给你做吧.