主题：想历遍整个日工资表的每个单元格，单元格日工资值超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元的，标注红色

上面的代码需要怎样改下