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

现在有一个问题

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

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

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

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

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

我在月度汇总表中使用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

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

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