主题：如何实现把指定表指定单位指定列的数据转出到其他表中，谢谢！！！！

数据填充器

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() '填充数据

dim f As New Filler

f.SourceTable = DataTables("人事工资管理") '指定数据来源

f.SourceCols = "序号,单位名称,姓名,身份证号,性别,出生日期,参加工作时间,职务" '指定数据来源列

f.DataTable = DataTables("调资基础数据") '指定数据接收表

f.DataCols = "序号,单位名称,姓名,身份证号,性别,出生日期,参加工作时间,职务" '指定数据接收列

f.ExcludeExistValue = "true"

f.ExcludeNullValue = "true"

f. Filter =  "单位名称"

f.Fill() '填充数据

dim f As New Filler

f.SourceTable = DataTables("人事工资管理") '指定数据来源

f.SourceCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,职务" '指定数据来源列

f.DataTable = DataTables("调资基础数据") '指定数据接收表

f.DataCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间,职务" '指定数据接收列

f.ExcludeExistValue = "true"

f.ExcludeNullValue = "true"

f.Fill() '填充数据

其实序号可以不转,我看你接收表中的序号是表达式列已有公式了