[求助]临时表如何标识行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]临时表如何标识行

共有2299人关注过本帖树形打印复制链接主题：[求助]临时表如何标识行

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/24 12:18:00 [显示全部帖子]

Dim g = Tables("表A").Grid
Dim c As Integer = g.Cols("金额").Index
For i As Integer = 1 To g.Rows.count-1
    Dim r = g.Rows(i)
    If r(c).Gettype.name <> "DBNull" AndAlso r(c) < 0 Then
        Dim cs1 As C1.Win.C1FlexGrid.CellStyle = g.GetCellRange(r.index, c).style
        If cs1 Is Nothing Then
            cs1 = g.Styles.Add("样式1")
            g.SetCellStyle(r.index, c, cs1)
        End If
        cs1.backcolor = Color.Red
    End If
Next

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/24 14:24:00 [显示全部帖子]

Dim g = Tables("表A").Grid
Dim c As Integer = g.Cols("金额").Index
For i As Integer = 1 To g.Rows.count-1
    Dim r = g.Rows(i)
    If r(c).Gettype.name <> "DBNull" AndAlso val(r(c)) < 0 Then
        Dim cs1 As C1.Win.C1FlexGrid.CellStyle = g.GetCellRange(r.index, c).style
        If cs1 Is Nothing Then
            cs1 = g.Styles.Add("样式1")
            g.SetCellStyle(r.index, c, cs1)
        End If
        cs1.backcolor = Color.Red
    End If
Next

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/24 14:32:00 [显示全部帖子]

Dim g = Tables("表A").Grid
Dim c As Integer = g.Cols("金额").Index
For i As Integer = 1 To g.Rows.count-1
    Dim r = g.Rows(i)
    If r(c).Gettype.name <> "DBNull" AndAlso val(r(c)) < 0 Then
        For Each gc As object In g.Cols
            Dim cs1 As C1.Win.C1FlexGrid.CellStyle = g.GetCellRange(r.index, gc.index).style
            If cs1 Is Nothing Then
                cs1 = g.Styles.Add("样式1")
                g.SetCellStyle(r.index, gc.index, cs1)
            End If
            cs1.backcolor = Color.Red
        Next
    End If
Next

下一主题 >> << 上一主题

主题：[求助]临时表如何标识行