以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  想历遍整个日工资表的每个单元格，单元格日工资值超500元的，标注红色  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187044)
--  作者：zhuxinhui
--  发布时间：2023/6/17 9:32:00
--  想历遍整个日工资表的每个单元格，单元格日工资值超500元的，标注红色

Dim t As Table = Tables("日工资")
For Each c As DataCol In DataTables("日工资").DataCols
    For Each r As Row In t.Rows\'       
        If t.Rows(r)(c) > 500 Then
            Dim cr1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("a")
            cr1.BackColor = Color.White
            cr1.ForeColor = Color.Red
            t.Grid.SetCellStyle(r.Index + t.HeaderRows, 2, cr1)
        End If
    Next
Next
想历遍整个日工资表的每个单元格，单元格日工资值超500元的，标注红色

上面的代码需要怎样改下
--  作者：有点蓝
--  发布时间：2023/6/17 10:16:00
--  
Dim t As Table = Tables("日工资")
Dim cr1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("a")
cr1.BackColor = Color.White
cr1.ForeColor = Color.Red
For Each c As Col In t.Cols
    If c.IsNumeric Then
        For Each r As Row In t.Rows\'       
            If r(c.Name) > 500 Then
                t.Grid.SetCellStyle(r.Index + 1, C.Index + 1, cr1)
            End If
        Next
    End If
Next
--  作者：zhuxinhui
--  发布时间：2023/6/17 10:43:00
--  
多谢
--  作者：denghui69986
--  发布时间：2023/6/17 17:06:00
--  

像这样代码放在表那个事件代码
--  作者：有点蓝
--  发布时间：2023/6/17 17:34:00
--  
适合放到窗口按钮这种，不能放到表事件