以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导出当前窗口中的表格的筛选后的数据该怎么写代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40486)
--  作者：wuxianzuoji41
--  发布时间：2013/9/21 20:54:00
--  导出当前窗口中的表格的筛选后的数据该怎么写代码

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
   dlg.Filter= "excel文件|*.xls" \'设置筛选器
   If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
     Dim ex As New Exporter   
     ex.SourceTableName ="crm_products"  \'指定导出表
     ex.filepath = dlg.FileName  \'指定目标文件 
     ex.Format = "Excel" \'导出格式为Excel
     ex.Fields = "product_name,Sell_price,StockNumber,producttype_id" \'指定导出字段
     ex.Filter = "[producttype_id] = " & e.form.controls("cmbChanpin").value & "And [StockNumber]=" & e.form.controls("cmbKucun").value   \'指定导出条件
     ex.Export() \'开始导出
     messagebox.show("成功导出数据")

 

 ex.Filter = "[producttype_id] = " & e.form.controls("cmbChanpin").value & "And [StockNumber]=" & e.form.controls("cmbKucun").value   \'指定导出条件
目前我使用这个方式，现在想改成导出当前窗口中的表格的筛选后的数据该怎么写代码
--  作者：有点甜
--  发布时间：2013/9/21 21:08:00
--  
 直接写 ex.Filter = Tables("crm_products").Filter
--  作者：wuxianzuoji41
--  发布时间：2013/9/21 22:59:00
--  

有点甜，改成你的说的，提示错误

 

至少一个参数没有被指定值。
--  作者：程兴刚
--  发布时间：2013/9/22 0:38:00
--  

1、对于文本型控件的值，注意加单引号 \'

2、注意 and 前加空格；

 

比如："[producttype_id] = \'" & e.form.controls("cmbChanpin").value & "\' And

 

上面假定：[producttype_id] 列和cmbChanpin控件的值为文本型。

 
--  作者：有点甜
--  发布时间：2013/9/22 23:09:00
--  
 至少一个参数没有被置顶值？你msgbox(Tables("crm_products").Filter)看看，没理由的。