主题：[求助]数据从一个数据表传递给多个数据表

现在有一个问题

我现在共有三张表，一张是月度绩效汇总表，一张年度绩效汇总表，一张年度积分表

月度绩效汇总表包含绩效区间、所属公司、一级部门、二级部门、工号、姓名、岗位、职级、入司时间、转正时间、绩效等级、绩效积分信息

年度绩效汇总表中包含绩效区间、所属公司、一级部门、二级部门、工号、姓名、岗位、职级、一月、二月、三月、四月、……十二月

年度积分表包含信息与汇总表中一致。

现在每月做完汇总后需要把月度绩效汇总表中绩效人员和等级信息汇总传递给年度绩效汇总表中对应月份进行汇总，同时把月度绩效汇总表中人员信息和积分信息传递给年度积分表中进行汇总。

我在月度汇总表中使用button，定义如下：

Tables("年度绩效汇总表").ClearSubtotal()
Dim Result As DialogResult
Result = MessageBox.Show("结转后将删除当月绩效库中的所有资料,请慎重执行!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim f As New Filler
f.SourceTable = DataTables("月度考核汇总表") '指定数据来源
f.DataTable = DataTables("年度绩效汇总表") '指定数据接收表
f.Fill() '填充数据
DataTables("月度考核汇总表").DataRows.Clear()
Else
    e.form.Close()
End If

测试了一下，人员基础信息可以传递到年度绩效汇总表，但是绩效等级信息没有传递 ，这个该怎么解决？

如果按上述编程，本质上是否也没有进行汇总，下个月数据是直接往下接续？

 必须做一个总表，记录所有的数据，每个月的数据，都填充到那个表里去，加上日期列区分不同的月份。

 至于你的年度汇总表，直接统计那个总表可以得到想要的结果 http://www.foxtable.com/webhelp/scr/0681.htm

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("表A").Select("[金额] > 100")
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
   
    dr2("日期") = Date.Today
Next