主题：求助代码

 按钮代码

With DataTables("例子一") '打开表
    .DataRows.Clear() '清除所有行
End With
Dim f As New Filler
f.SourceTable = DataTables("例子三") '指定数据来源
f.SourceCols = "产品" '指定数据来源列
f.DataTable = DataTables("例子一") '指定数据接收表
f.DataCols = "产品" '指定数据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据