主题：导出当前窗口中的表格的筛选后的数据该怎么写代码

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   '指定导出条件
目前我使用这个方式，现在想改成导出当前窗口中的表格的筛选后的数据该怎么写代码