老师好，按您给整合的导出数据按钮命令代码都实现了预期的功能，现在想拓展一下，对导出的表格设置一些样式（网格线，字体，颜色，对齐方式等） 把这些设置样式的代码加进去后，也不报错，就是导出表的时候，导出的表格没有达到预期设定的样式，老师给看看样式文件代码有啥问题

咱们是这样的，定义的dt变量 Dim dt As Table = Tables("报表形式导出表格_table1")是窗口中的作为预览用和后面导出折叠模式的动态表，而导出的表Sheet也是随窗口中的动态表而变化导出的表名和数据，咱们就是想在导出的动态表名和数据中进行设置表样式，最后落脚点就是下面代码的dt   我琢磨了好多遍这个动态dt这么写  ,另外老师看看表样式的代码放置位置对不对，请老师看看代码问题出在哪儿  谢谢老师

   \'        Sheet(dt.Rows.Count - 1 , Lms.length - 1).Style = Style  

        Sheet(Tables("& name & ").Rows.Count - 1 , Lms.length - 1).Style = Style

\'下面是导出数据按钮命令代码

Dim dlg As New SaveFileDialog

dlg.filter = "Excel文件|*.xls"

dlg.OverwritePrompt = True \'弹出覆盖警告

If dlg.ShowDialog = DialogResult.OK Then

    \'定义点击不同单选框按钮时对应的列名显示代码

    Dim lms() As String

    Dim szs() As Integer

    If e.Form.Controls("导出理论数据").Checked = True Then

        lms = {"序号", "项目构成", "单位", "理论用量", "理论单价", "理论合价", "备注"} \'要导出的列名

        szs = {45, 200, 65, 85, 85, 100, 250} \'对应的列宽

    Else If e.Form.Controls("导出投标数据").Checked = True Then

    lms = {"序号", "项目构成", "单位", "投标用量", "投标单价", "投标合价", "备注"} \'要导出的列名

    szs = {45, 200, 65, 85, 85, 100, 250} \'对应的列宽

    Else If e.Form.Controls("导出理论数据").Checked = False And e.Form.Controls("导出投标数据").Checked = False Then

        MessageBox.Show("请选择导出数据的形式：是导出理论数据   还是导出投标数据")

    End If

    \'下面代码都是定义导出数据表代码

    Dim dt As Table = Tables("报表形式导出表格_table1")

    Dim Book As New XLS.Book \'定义一个Excel工作簿

    Dim Sheet As XLS.Sheet

    \'下面代码是定义表样式代码

    \'以下是定义单元格字体颜色及表格线的颜色代码代码代码

    Dim Style As XLS.Style = Book.NewStyle() \'定义新样式

    Style.BorderTop = XLS.LineStyleEnum.Thin \'设置表格线

    Style.BorderBottom = XLS.LineStyleEnum.Thin \'设置表格线

    Style.BorderLeft = XLS.LineStyleEnum.Thin \'设置表格线

    Style.BorderRight = XLS.LineStyleEnum.Thin \'设置表格线

    Style.ForeColor = Color.black \'设置样式的字体颜色

    Style.BorderColorTop = Color.black \'设置单元格顶部表格线颜色

    Style.BorderColorBottom = Color.black \'设置单元格底部表格线颜色

    Style.BorderColorLeft = Color.black \'设置单元格左侧表格线颜色

    Style.BorderColorRight = Color.black \'设置单元格右侧表格线颜色

    \'定义复选组合框列表选择代码

    Dim ckl As WinForm.CheckedListBox = e.Form.Controls("lbk")

    Dim nms As New List(Of String)

    For i As Integer = 0 To ckl.Items.count - 1 \'获取已经勾选的表名

        If ckl.GetItemChecked(i) Then

            nms.Add(ckl.Items(i))

        End If

    Next

    If nms.Count = 0 Then

        MessageBox.Show("至少要选择一个要导出的表名", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Return

    End If

    For Each name As String In nms

        dt.Fill("se  lect *,用量 as 理论用量 ,单价 as 理论单价,合价 as 理论合价,报价调整1 as 投标用量,报价调整2 as 投标单价,报价调整3 as 投标合价  from {" & name & "}", True)

        Dim st As New InlineTreeSetting

        st.ParentCol = "科目编码"

        st.ChildCol = "项目构成"

        st.SortCol = "sysgrdtreesort"

        st.AggregateCols = {"合价|报价调整3"}

        st.UseStyle = True

        st.ExpandTo = -1

        dt.ShowGridTree(st)

        dt.Cols("科目编码").Visible = False

        Sheet = Book.Sheets.Add(name) \'根据勾选表名动态增加工作表

        \'定义导出表的表结构代码

        For c As Integer = 0 To lms.length - 1

            Sheet(0, c).Value = lms(c) \'指定列标题

            Sheet.Cols(c).Width = szs(c) \'指定列宽

        Next

        \'定义导出表的数据填充代码

        For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据

            Dim rw As Row = dt.rows(r)

            For c As Integer = 0 To lms.length - 1

                If dt.GridTreeVisible Then \'如果处于折叠模式

                    If lms(c) = "合价" Then

                        Sheet(r + 1, c).Value = rw.GetValue("合价")

                    ElseIf lms(c) = "项目构成" Then

                        Sheet(r + 1, c).Value = New String(" ", rw.Hierarchy * 2) & rw("项目构成")

                    Else

                        Sheet(r + 1, c).Value = rw(lms(c))

                    End If

                Else

                    Sheet(r + 1, c).Value = rw(lms(c))

                End If

            Next

        Next

        \'定义数据对齐代码

        Style.AlignHorz = XLS.AlignHorzEnum.Center\'数据居中对齐

        Style.AlignVert = XLS.AlignVertEnum.Center\'数据居中对齐

        \'        Sheet(dt.Rows.Count - 1 , Lms.length - 1).Style = Style

        Sheet(Tables("& name & ").Rows.Count - 1 , Lms.length - 1).Style = Style

        \'打开工作簿

        Book.Save(dlg.FileName)

        Dim Proc As New Process

        Proc.File = dlg.FileName

        Proc.Start()

    Next

End If