以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  我这段代码有什么问题吗？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54305)
--  作者：htlk25
--  发布时间：2014/7/25 12:21:00
--  我这段代码有什么问题吗？
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

运行后提示，“至少一个参数没有被指定值。”
--  作者：htlk25
--  发布时间：2014/7/25 12:41:00
--  
急求解
--  作者：有点甜
--  发布时间：2014/7/25 14:04:00
--  
红色代码有问题，看是否有对应列
 
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
--  作者：htlk25
--  发布时间：2014/7/25 14:23:00
--  
有的，请看
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140725142206.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2014/7/25 14:28:00
--  
 你去看这一列具体的列名是什么，有可能不是这个名字。
--  作者：有点甜
--  发布时间：2014/7/25 14:29:00
--  
那你试试这段代码
 
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
--  作者：htlk25
--  发布时间：2014/7/25 14:42:00
--  
以下是引用有点甜在2014-7-25 14:29:00的发言：
那你试试这段代码
 
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

这样可以，但是所有列全导出了
--  作者：有点甜
--  发布时间：2014/7/25 14:44:00
--  

 那就是你的列名根本就不是叫做【邮箱】

 

http://www.foxtable.com/help/topics/0033.htm

 

http://www.foxtable.com/help/topics/0036.htm

 
--  作者：htlk25
--  发布时间：2014/7/25 14:47:00
--  
理解了，实在不好意思！！应该是没有指定列名，只有标题！
--  作者：htlk25
--  发布时间：2014/7/25 15:02:00
--  
我原以为是列名有问题，其实还是不是，列名是“邮箱”