以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如果某列的单元格的值的数字大于1，那么该行的颜色背景色用特殊颜色标记出来，这个该怎么做  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33942)
--  作者：wuxianzuoji41
--  发布时间：2013/5/27 16:41:00
--  如果某列的单元格的值的数字大于1，那么该行的颜色背景色用特殊颜色标记出来，这个该怎么做

如果某列的单元格的值的数字大于1，那么该行的颜色背景色用特殊颜色标记出来，这个该怎么做？》

是写在AFTERLOAD里吗
--  作者：Bin
--  发布时间：2013/5/27 16:48:00
--  
http://www.foxtable.com/help/topics/0656.htm

参考帮助,非常简单. 判断一下是否大于一即可.
--  作者：XYT
--  发布时间：2013/5/27 16:49:00
--  

DrawCell

在绘制单元格
--  作者：wuxianzuoji41
--  发布时间：2013/5/27 16:56:00
--  

bin,我这个为什么不对，

我把这些放在AFTERALOAD里

Dim r As Row
With Tables("窗口意向管理_tblYixiangguanli")
    For i As Integer = 0 To .Rows.Count - 1
        r = .Rows(i)
        If r("外勤数量") = 0  Then
        DataTables("crm_opportunity").SysStyles("CurrentRow").BackColor = Color.red    
    End If
    Next
End With

 

我只想把窗口中的显示的行的复合条件的列标记出来，而不是整个表。

 

 

[此贴子已经被作者于2013-5-27 17:01:34编辑过]
--  作者：Bin
--  发布时间：2013/5/27 17:02:00
--  
你代码写在哪里?你这是要干嘛?
参考帮助写在DRAWCELL事件里
http://www.foxtable.com/help/topics/0656.htm
If e.Row.IsNull("某列") = False \'且该列已经输入内容
        If e.Row("某列") > 60 Then \'如果该列的值小于60
            e.Style = "大于一" \'那么用"不及格"样式绘制单元格
        End If
    End If
--  作者：wuxianzuoji41
--  发布时间：2013/5/27 17:03:00
--  
BIN,

我只想把窗口中的显示的行的复合条件的列标记出来，而不是整个表。

 

这个代码该怎么写也是放在DRAWCELL里吗
--  作者：Bin
--  发布时间：2013/5/27 17:06:00
--  
以下是引用wuxianzuoji41在2013-5-27 16:56:00的发言：

bin,我这个为什么不对，

我把这些放在AFTERALOAD里

Dim r As Row
With Tables("窗口意向管理_tblYixiangguanli")
    For i As Integer = 0 To .Rows.Count - 1
        r = .Rows(i)
        If r("外勤数量") = 0  Then
        DataTables("crm_opportunity").SysStyles("CurrentRow").BackColor = Color.red    
    End If
    Next
End With

 

我只想把窗口中的显示的行的复合条件的列标记出来，而不是整个表。

 

 

[此贴子已经被作者于2013-5-27 17:01:34编辑过]



CurrentRow是当前行,你需要移动一下tables("窗口意向管理_tblYixiangguanli").Position
另外循环前把焦点移动到第一行 tables("窗口意向管理_tblYixiangguanli").Position=0
--  作者：wuxianzuoji41
--  发布时间：2013/5/27 20:43:00
--  

Dim r As Row
With Tables("窗口意向管理_tblYixiangguanli")

tables("窗口意向管理_tblYixiangguanli").Position=0
    For i As Integer = 0 To .Rows.Count - 1
        r = .Rows(i)

       tables("窗口意向管理_tblYixiangguanli").Position=i
        If r("外勤数量") = 0  Then
        DataTables("crm_opportunity").SysStyles("CurrentRow").BackColor = Color.red    
    End If
    Next
End With

bin 是这么写吗，还是错误
--  作者：狐狸爸爸
--  发布时间：2013/5/28 11:23:00
--  

其实帮助有详细的介绍，看完这一节：

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

 

示例二就是整行变色。