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

现在还不习惯用汇总模式

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

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 ”。