主题：工资管理系统

 不明白你说的什么由模板生成工资表。

 如果你要做，你就单独做一个table，先生成你要的表格，再说导出excel的问题。

先生成表。

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("姓名", Gettype(String), 32)
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        dtb.AddDef(nd.FullPath.Replace("\", "_"), Gettype(Double))
    End If
Next
dtb.Build
Dim t As Table = Tables("统计")
Dim st As Table = Tables("表A")
Dim dic As new Dictionary(of String, Row)
For i As Integer = 2 To st.Cols.Count - 1
    Dim nr As Row = t.AddNew
    dic.Add(st.Cols(i).Name, nr)
    nr("姓名") = st.Cols(i).Name
Next
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        Dim fdr As DataRow = st.DataTable.find("_Identify = " & nd.tag)
        If fdr IsNot Nothing Then
            For i As Integer = 2 To st.Cols.Count - 1
                dic(st.Cols(i).Name)(nd.FullPath.Replace("\", "_")) = fdr(st.Cols(i).name)
            Next
        End If
    End If
Next
MainTable = t

你节点里面的值不能出现重复。

方法一：直接saveexcel

http://www.foxtable.com/help/topics/0559.htm

方法二：根据生成的表，设计excel模板。

Dim Rg11 As MSExcel.Range = Ws1.Range(ws1.Cells(3,3), ws1.Cells(3,n+3))

参考代码

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.cells(3, 3)
MessageBox.Show(Rg.Address)
App.Quit

 代码没有问题，OrElse 两边的条件一个成立就行。

 问问题，请说明具体什么问题啊。

 你说的顺序，是列顺序？怎么就顺序不对了啊？

 截图和实例说明

 你可以在 摘要表 加一列辅助列，输入不同级的摘要用1、2、3表示，然后写代码

g2.Groups.AddDef("辅助列")