主题：[求助]表中的“全县合计”行字体加粗、变成红色

 楼主你参考一下弄就行了。

 给指定单元格设置样式……

Dim ns As C1.Win.C1FlexGrid.CellStyle = CurrentTable.grid.Styles.Add("自定义的样式")
ns.ForeColor = Color.Red
ns.Font = New Font("宋体", 10, FontStyle.Bold)

CurrentTable.grid.SetCellStyle(1,1,ns)
CurrentTable.grid.SetCellStyle(1,2,ns)
CurrentTable.grid.SetCellStyle(1,3,ns)

因为是临时表，没有办法了。

 生成的时候加入一段代码。

        Dim fdr As DataRow = bm.Find("单位 = '全县合计'")
        Dim pos As Integer = Tables(bm.Name).FindRow(fdr)
        Dim ns As C1.Win.C1FlexGrid.CellStyle = Tables(bm.Name).grid.Styles.Add("自定义的样式")
        ns.ForeColor = Color.Red
        ns.Font = New Font("宋体", 10, FontStyle.Bold)
        For i As Integer = 0 To Tables(bm.Name).Cols.Count - 1
            Tables(bm.Name).Grid.SetCellStyle(pos+1, i+1, ns)
        Next

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:小学期末成绩统计程序.zip

 那就再加一个循环。

        For Each fdr As DataRow In bm.Select("单位 = '全县合计'")
            Dim pos As Integer = Tables(bm.Name).FindRow(fdr)
            Dim ns As C1.Win.C1FlexGrid.CellStyle = Tables(bm.Name).grid.Styles.Add("自定义的样式")
            ns.ForeColor = Color.Red
            ns.Font = New Font("宋体", 10, FontStyle.Bold)
            For i As Integer = 0 To Tables(bm.Name).Cols.Count - 1
                Tables(bm.Name).Grid.SetCellStyle(pos+1, i+1, ns)
            Next
        Next