Dim Products As List(Of String)
Products = DataTables("导入txt").GetValues("代码")
For Each Product As String In Products
Dim ex As New Exporter
ex.SourceTableName = "导入txt" '指定导出表
ex.FilePath = "c:\Data\" '指定目标文件路径
ex.Format = "Delimited" '导出格式为符号分割的文本文件
ex.NewTableName = "data_trainer_" & Product.ToString '指定文件名,注意无须扩展名
ex.Filter = "代码 = '" & Product.ToString & "'"
ex.Header = False
ex.Export() '开始导出
MessageBox.Show(Product.ToString)
Next