主题：[求助] 导出数据公式

我做了如下图的导出条件选择窗口，求【导出数据】按钮公式

 
此主题相关图片如下：360截图20160930160136752.jpg

Dim dlg As New SaveFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "宽带帐号割接回访表" '指定导出表
    ex.NewTableName = "Sheet1"
    ex.FilePath = dlg.FileName
    ex.Format = "Excel" '导出格式为Excel
    If e.Form.Controls("导出字段").text = "" Then
    Else
        ex.Fields = e.Form.Controls("导出字段").text  '指定导出字段
    End If

    ex.Filter = ******* '指定导出条件

    ex.Export() '开始导出
    MessageBox.show("已经完成数据导出!!!", "非常关键提醒")
End If