主题：如何导出多表头表格

此主题相关图片如下：1.png

为啥这个导出来就不一样了？就不是看到的这样了

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
'dlg.Filter = "Excel文件|*.xls;*.xlsx" '设置筛选器
'Dim dt As Table = e.Form.controls("table1").Table
'If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    'Dim Book As New XLS.Book '定义一个Excel工作簿
    'Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
    'Dim Style As Xls.Style = Book.NewStyle '新建一个样式
    'For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
        'Sheet(0, c).Value = dt.Cols(c).Name
    'Next
    'For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
        'For c As Integer = 0 To dt.Cols.Count -1
            'Sheet(r +1, c).Value = dt.rows(r)(c)
        'Next
    'Next
    ''打开工作簿
    'Book.Save(dlg.FileName)
    'Dim Proc As New Process
    'Proc.File = dlg.FileName
    'Proc.Start()
'End If

错误：不存在dt表，这个表是窗口中的一个sqlquery类型的表，是我统计生成的表在这个窗口的这个表中看到

Dim dt As Table = e.Form.controls("table1").Table
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls"  '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    dt.SaveExcel(dlg.FileName, "订单")   '保存文件
End  If