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

谢谢!加了这个代码后，只是“年级='2013'”的“全县合计”行(即第一行)加粗变红了。我是想将所有“单位='全县合计'”的行都加粗变红。下面还有年级=2017、2018等。

谢谢!全局表事件代码又如何写？请指教!

 那就再加一个循环。

        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

谢谢!“单位年级部别统计”表中的“全县合计”栏变红加粗问题解决了。但用在其它表中(行的位置发生了变化)还没解决。慢慢来。

这个问题应该解决了。代码应加在尾部。

For Each bm As DataTable In DataTables
    If bm.name <> "成绩库" AndAlso bm.Name <> "校名设置" AndAlso bm.Name <> "目标设置"
        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("宋体",9, 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
    End If
Next

      标题行如果是1栏的“pos+1  ”，2栏的“pos+2 ”，栏的“pos+3 ”。