ctrl不支持多选带来的导出问题有什么好的解决方法？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim flt as string

For Each r As Row In Tables("订单").GetCheckedRows
flt =flt & "','" & r("产品") '合成导出条件

if flt isnot nothing then

flt = "[产品] In (" & flt.substring(2) & "')")

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

ex.FilePath = "D:\" '指定目标文件

ex.Format = "Delimited" '导出格式为符号分割的文本文件

ex.Fields = "日期,客户,数量,单价" '指定导出字段
ex.Filter = flt '指定导出条件
ex.Export() '开始导出

主题：ctrl不支持多选带来的导出问题有什么好的解决方法？