Foxtable(狐表)用户栏目专家坐堂 → 关于EXCLE导出条件的问题!


  共有5845人关注过本帖树形打印复制链接

主题:关于EXCLE导出条件的问题!

帅哥哟,离线,有人找我吗?
xietan417
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:721 积分:6391 威望:0 精华:0 注册:2011/6/26 11:45:00
关于EXCLE导出条件的问题!  发帖心情 Post By:2013/5/8 16:27: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

 

我想按登陆部门导出!就是不行!求指导!


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:721 积分:6391 威望:0 精华:0 注册:2011/6/26 11:45:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/8 16:40:00 [只看该作者]

参考帮助,你少了参数.刚才我漏掉了.  http://www.foxtable.com/help/topics/0683.htm

 回到顶部
帅哥哟,离线,有人找我吗?
xietan417
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:721 积分:6391 威望:0 精华:0 注册:2011/6/26 11:45:00
  发帖心情 Post By: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
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/8 16:47:00 [只看该作者]

不起作用是肯定的.因为你上面的代码只有一句话在起作用..

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

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

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

是两个不同的东西.不要混为一谈..


 回到顶部
帅哥哟,离线,有人找我吗?
xietan417
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:721 积分:6391 威望:0 精华:0 注册:2011/6/26 11:45:00
  发帖心情 Post By:2013/5/8 17:05:00 [只看该作者]

行!我再仔细看看!谢谢你的教导!

 回到顶部