主题：[求助]填充不能去重

Dim f As New Filler
f.SourceTable = DataTables("订单") '指定数据来源
f.SourceCols = "产品,客户" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "产品,客户" '指定数据接收列
f.Distinct = True
f.Fill() '填充数据

参考：

http://www.foxtable.com/help/topics/0680.htm