主题：[求助]表格导出

for each s as string in datatabls("表A").getvalues("供应商名称")

Dim ex as New Exporter
ex.SourceTableName = "表A" '指定导出表

ex.NewTableName = s
ex.FilePath = "c:\Data\表A.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Filter = "[供应商名称] = '" & s & "'" '指定导出条件
ex.Export() '开始导出