专家坐堂-各位老师，指点一下吧！谢谢Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dlg As New FolderBrowserDialog

If dlg.ShowDialog = DialogResult.Ok Then

Dim ex As New Exporter

ex.SourceTableName = "原始名单" \'指定导出表

ex.FilePath = "" & dlg.SelectedPath & "\\" & Tables("展会信息").Current("展会简称") & ".xls"

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

ex.Fields = "邮箱" \'指定导出字段

ex.Filter = "[展会简称] = \'" & Tables("展会信息").Current("展会简称") & "\'"

ex.Header = True

ex.Export()

End If

运行后提示，“至少一个参数没有被指定值。”