以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于EXCLE导出条件的问题！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32804)
--  作者：xietan417
--  发布时间：2013/5/8 16:27:00
--  关于EXCLE导出条件的问题！

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
   Dim ex As New Exporter
ex.SourceTableName = "a" \'指定导出表
ex.filepath = dlg.FileName  \'指定目标文件
ex.Fields = "Name,CardNo,FDateTime"
ex.Filter = "[dn] Like \'" & _Userdept & "*\'"
     Tables("a").SaveExcel(dlg.FileName, "考勤数据")  \'保存文件
End If

 

我想按登陆部门导出！就是不行！求指导！
--  作者：Bin
--  发布时间：2013/5/8 16:33:00
--  
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog 
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
   Dim ex As New Exporter
ex.SourceTableName = "a" \'指定导出表
ex.filepath = dlg.FileName  \'指定目标文件
ex.Fields = "Name,CardNo,FDateTime" 
ex.Filter = "[dn] Like \'" & _Userdept & "*\'"
     ex.Export()
End If
--  作者：xietan417
--  发布时间：2013/5/8 16:37:00
--  

NET Framework 版本：2.0.50727.3643
Foxtable 版本：2012.11.29.1
错误所在事件：
详细错误信息：
System.Data.OleDb.OleDbException: 至少一个参数没有被指定值。
   在 System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(OleDbHResult hr)
   在 System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult)
   在 System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult)
   在 System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult)
   在 System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method)
   在 System.Data.OleDb.OleDbCommand.ExecuteNonQuery()
   在 Foxtable.Exporter.Export()

 

 

 

不行啊！这个不对！
--  作者：Bin
--  发布时间：2013/5/8 16:40:00
--  
参考帮助,你少了参数.刚才我漏掉了.  http://www.foxtable.com/help/topics/0683.htm
--  作者：xietan417
--  发布时间：2013/5/8 16:45:00
--  

是少了参数的问题吗？我只是看不到懂按条件导出的部份

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
   Dim ex As New Exporter
ex.SourceTableName = "a" \'指定导出表
ex.filepath = dlg.FileName  \'指定目标文件
ex.Fields = "Name,CardNo,FDateTime"
ex.Filter = "[dn] Like \'" & _Userdept & "*\'"
     Tables("a").SaveExcel(dlg.FileName, "考勤数据")  \'保存文件
End If

 

按以上代码正常导出！但是这个条件【ex.Filter = "[dn] Like \'" & _Userdept & "*\'"】没有起作用，还是全部导出了！
--  作者：Bin
--  发布时间：2013/5/8 16:47:00
--  
不起作用是肯定的.因为你上面的代码只有一句话在起作用..

Tables("a").SaveExcel(dlg.FileName, "考勤数据")  \'保存文件

除开这段代码 其他代码都是白写的..

具体请认真看帮助. 有关Exporter http://www.foxtable.com/help/topics/0683.htm

是两个不同的东西.不要混为一谈..
--  作者：xietan417
--  发布时间：2013/5/8 17:05:00
--  
行！我再仔细看看！谢谢你的教导！