此主题相关图片如下：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