For Each r1 As Row In Tables("ERP订单查询_Table1").GetCheckedRows Dim f As New Filler f.SourceTable = DataTables("ERP订单查询_Table1") '指定数据来源 f.SourceCols = "料品名称" '指定数据来源列 f.DataTable = DataTables("订单需求情况录入表") '指定数据接收表 f.DataCols = "成品名称" '指定数据接收列 f.Distinct =True f.Append=False