标题：这个问题错在哪？请指点！！

Dim dlg As New SaveFileDialog '定一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
dim ss as string
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    ss = dlg.FileName
   If FileSys.FileExists("& ss &") = true Then
      FileSys.DeleteFile("& ss &",2,2) '则彻底删
   End if
   Dim ex as New Exporter
   ex.SourceTableName = "入库捆包查询_Table1" '指定导出表
   ex.FilePath = ss    '指定目标文件
   ex.Format = "Excel" '导出格式为Excel
   ex.Fields = "资源号,捆包号" '指定导出字段
   ex.Filter = "[资源号] <> ''" '指定导出条件
   ex.Export() '开
end if

 
这个表入库捆包查询_Table1为动态生成的数据。

此主题相关图片如下：未命名.gif

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

这段有问题

 

Dim dlg As New SaveFileDialog   '指定一个新的SaveFileDialog
dlg.Filter= "上报文件|*.DSB "   '设置筛选器

dlg. title= "生成上报文件"
dlg.OverwritePrompt = True  '对于已经存在的文件名，是否出现覆盖警告

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

If FileSys.FileExists(dlg.filename) Then    '如果指定的文件存在
    FileSys.DeleteFile(dlg.filename,2,2)     '则彻底删除之
    End If
    Dim ex as New Exporter
    ex.SourceTableName = "调资基础数据"   '指定导出表

ex.Format = "Access"   '指定导出文件格式
    ex. PassWord = “TZX_GWY_JT_8888”  '用此属性指定目标文件的密码

ex.filepath =  dlg.filename    '指定目标文件

ex.NewTableName = "调资基础数据"        '指定导出后的表的名称

    ex.Export()    '开始导出数据
    MessageBox.Show("上报数据生成完成！！！", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

这是原来做的

旧版没有问题的

问题也许在这里呢：

ex.SourceTableName = "入库捆包查询_Table1" '指定导出表

导出表怎么用的是窗口的名称?

动态加载的表，是SQL—Table型的。表名是窗口名+控件名吧，这个是新版的说明，难道误解？

导出完整代码：
Dim dlg As New SaveFileDialog '定一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
dim ss as string
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    ss = dlg.FileName
   If FileSys.FileExists("& ss &") = true Then
      FileSys.DeleteFile("& ss &",2,2) '则彻底删
   End if
   Dim ex as New Exporter
   ex.SourceTableName = "入库捆包查询_Table1" '指定导出表
   ex.FilePath = ss    '指定目标文件
   ex.Format = "Excel" '导出格式为Excel
   'ex.Fields = "资源号,捆包号" '指定导出字段
  ' ex.Filter = "[资源号] <> ''" '指定导出条件
   ex.Export()
end if
此主题相关图片如下：未命名.gif


请帮忙问题在哪？郁闷！查了很久了，不知错在哪？望指点！先谢了！