主题：复制粘贴问题请教

数据填充器

Filler用于从表中提取数据，并填充到另一个表中。

属性：

• SourceTable
  
  数据来源表。
  　
• SourceCols
  
  数据来源列，不同的列用逗号分割。
  　
• DataTable
  
  数据接收表。
  　
• DataCols
  
  数据接收列，不同的列用逗号分割。
  　
• ExcludeExistValue
  
  逻辑型，设为True，排除接收表中已经存在的内容。
  　
• ExcludeNullValue
  
  逻辑型，设为True，排除空白值。
  　
• Filter
  
  填充条件，请参考表达式的运算符和函数 和 条件表达式。
   
• Distinct
  
  逻辑型，是否排除重复内容，默认为True；如果设为False，将不会排除重复内容，也不会排除已有内容和空白值。
  　
• Append
  
  逻辑型，默认为True，在接收表中增加新行用于接收数据，设为False，则在原有的行中填充，如果不够再增加新行。

提示：数据来源列和数据接收列是可以省略的，或者只设置其中一个，Filler会自动查找同名列进行匹配填充。

方法：

Fill

开始填充数据　

示例：

例如从订单表中提取不重复的客户、产品数据，填充到统计表中：

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