主题：[求助]统计表导出后“字体”变红加粗部分变了？

我统计表中的“A计，B计，C计，得分”行是设为“"宋体",9, FontStyle.Bold  ”即“宋体，9号，变红，加粗”的，怎么导出后不对了？如何修改代码？请批教。谢谢!

 

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

点击浏览该文件:高中问卷调查统计.rar

我还是搞不来，统计表中已经设置了“A计，B计，C计，得分”行的属性(9号、变红、加粗)，只是导出后变了。请帮帮我。谢谢!

老大!帮帮忙，我确实搞不懂了，如何修改“导出”按钮的代码？请批教。谢谢!

这个代码导出的是固定路径，我现在是设置的导出动态路径。导出动态路径如何修改代码？请批教。谢谢!

还是没搞定。如何修改代码？请指教。谢谢!

Dim Values() As String = {"问卷"}
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    For Each Value As String In Values
        For Each dw As String In DataTables("校名设置").GetUniqueValues("统计单位 = '统计'", "单位")           
            For Each bm As DataTable In DataTables
                If bm.name <> "问卷答案" AndAlso bm.Name <> "校名设置" AndAlso bm.Name <> "对应科目"                   
                    Dim Hjs() As String = {"A计","B计","C计","得分"}
                    For Each Hj As String In Hjs
                        For Each fdr As DataRow In bm.Select("选项 = '" & Hj & "'")
                            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+2, i+1, ns)
                                Tables( dw & value & "分科目得分").SaveExcel(dlg.FileName, dw & value & "分科目得分") '保存文件                  
                            Next
                        Next
                    Next                   
                End If
            Next
        Next
    Next
End If

统计表导出后符合条件的行“字体”变红加粗已经搞定，但还有两个问题需请教：1、导出的Excel表中符合条件的行“字体”虽然变红加粗了，但未完全保存设置(部分列应上下居中、小数位数要求)；2、导出的Excel表只能单独保存为一个新的Excel表，不能将Table保存为Excel文件中的一个工作表，如果保存到Excel文件中的一个工作表符合条件的行“字体”就不发生变化了。请指教，谢谢！

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

点击浏览该文件:统计表导出测试….rar

谢谢！

For Each Hj As String In Hjs
      If sheet(i,0).Text.EndsWith(Hj) Then '如果指定列(第1列)中含Hj字符存在
            For n As Integer = 0 To sheet.Cols.count -1
                 sheet(i,n).Style = Style
            Next

喔。谢谢！