主题：如何将窗体中尚未保存的记录导出到EXCEL

我写了如下代码:

Dim ex As New Exporter

ex.SourceTableName ="游客收支表"        '指定导出表

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.FileName="团队游客名单"

dlg.OverwritePrompt=True

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    ex.FilePath = dlg.FileName               '指定目标文件

    ex.Format = "Excel"                      '导出格式为Excel

    ex.NewTableName="游客名单"

    ex.Fields = "姓名,性别,手机号码,单位"    '指定导出字段

    ex.Filter ="[团号] = '12345678'"       '指定导出条件

End If

结果发现:未保存的记录,导出是空白记录,应该如何修改这段代码?

我现在采取的办法是先保存再导出;

有没有不保存就能导出的办法?

此主题相关图片如下：搜狗截图20141205154942.png

那么这个表名该怎么写? 

所以代码如下:

Dim ex As New Exporter

ex.SourceTableName ="游客收支表"        '指定导出表

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.FileName="团队游客名单"

dlg.OverwritePrompt=True

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    ex.FilePath = dlg.FileName               '指定目标文件

    ex.Format = "Excel"                      '导出格式为Excel

    ex.NewTableName="游客名单"

    ex.Fields = "姓名,性别,手机号码,单位"    '指定导出字段

    ex.Filter ="[团号] = " & Tables("预结算单").Filter("团号") & "'"     '指定导出条件

End If 

结果 出现错误提示:  从字符串“团号”到类型“Integer”的转换无效。