主题：如果根据条件 复制子表

就这么简单：

Dim f As New  Filler
f.SourceTable = DataTables("订单明细表") '指定数据来源
f.DataTable = DataTables("核销表") '指定数据接收表
f.Filter = "订单编号 = '" & e.Form.Controls("订单编号").Value & "'"  '指定复制条件
f.Fill() '填充数据