If e.Form.Controls("要更新的表").value = "" Then
MessageBox.show("请选择需要导出的表模板")
Return
End If
Dim s As String = e.Form.Controls("要更新的表").value
Dim dtb As DataTable = DataTables(s)
Dim ex As New Exporter
ex.SourceTableName = dtb.Name '指定导出表
ex.FilePath = "C:\Users\6141\Desktop\datu\订单.xls"
ex.Filter = "[月份] = '202005'" '指定导出条件
ex.NewTableName = Date.now & "导出" & dtb.name
ex.Export() '开始导出
MessageBox.show("1")