主题：求助：带条件填充

各位老师：

这段代码本想是让填充时人员要对上，月份要对上！但是因为表1只有3月等几个月的，只是顺序填充，不能填充到相应的月份中！

Dim fb As New  Filler
fb.SourceTable =tb1 '指定数据来源
fb.DataTable = tb '指定数据接收表
fb.Fill() '填充数据
Dim fc As New  Filler
fc.SourceTable = ta '指定数据来源
fc.SourceCols = "检验,不良描述_1,处罚_1,不良描述_2,处罚_2,不良描述_3,处罚_3,不良描述_4,处罚_4,不良描述_5,处罚_5,不良描述_6,处罚_6,不良描述_7,处罚_7,不良描述_8,处罚_8,不良描述_9,处罚_9,不良描述_10,处罚_10,不良描述_11,处罚_11,不良描述_12,处罚_12,合计_不良描述,合计_处罚"  '指定数据来源列
fc.DataTable = tb '指定数据接收表
fc.DataCols = "操作人,不良描述_1,考核_1,不良描述_2,考核_2,不良描述_3,考核_3,不良描述_4,考核_4,不良描述_5,考核_5,不良描述_6,考核_6,不良描述_7,考核_7,不良描述_8,考核_8,不良描述_9,考核_9,不良描述_10,考核_10,不良描述_11,考核_11,不良描述_12,考核_12,合计_不良描述,合计_考核" '指定数据接收列
fc.Fill() '填充数据
For Each dr1 As DataRow In tb.DataRows
    Dim dr2 As DataRow = DataTables("人员名单").Find("姓名='" & dr1("操作人") & "'")
    If dr2 IsNot Nothing
    dr2("一月_总数") = dr1("不良描述_1")
    dr2("一月_考核") = dr1("考核_1")
    dr2("二月_总数") = dr1("不良描述_2")
    dr2("二月_考核") = dr1("考核_2")
    dr2("三月_总数") = dr1("不良描述_3")
    dr2("三月_考核") = dr1("考核_3")
    dr2("四月_总数") = dr1("不良描述_4")
    dr2("四月_考核") = dr1("考核_4")
    dr2("五月_总数") = dr1("不良描述_5")
    dr2("五月_考核") = dr1("考核_5")
    dr2("六月_总数") = dr1("不良描述_6")
    dr2("六月_考核") = dr1("考核_6")
    dr2("七月_总数") = dr1("不良描述_7")
    dr2("七月_考核") = dr1("考核_7")
    dr2("八月_总数") = dr1("不良描述_8")
    dr2("八月_考核") = dr1("考核_8")
    dr2("九月_总数") = dr1("不良描述_9")
    dr2("九月_考核") = dr1("考核_9")
    dr2("十月_总数") = dr1("不良描述_10")
    dr2("十月_考核") = dr1("考核_10")
    dr2("十一月_总数") = dr1("不良描述_11")
    dr2("十一月_考核") = dr1("考核_11")
    dr2("十二月_总数") = dr1("不良描述_12")
    dr2("十二月_考核") = dr1("考核_12")
    dr2("年度合计_总数") = dr1("合计_不良描述")
    dr2("年度合计_考核") = dr1("合计_考核")
    End If
Next

临时表如下：

 

此主题相关图片如下：微信图片_20191031164506.png

 

不能填充到相应的月份上，如下图：

  

此主题相关图片如下：微信图片_20191031164513.png

上图中填充时，3月份填充到1月份了，4月份填充到2月份了。。。。，我想要的效果是填充时，人员匹配，月份匹配，现在是人员可以按条件填充，3月填充到3月，4月填充到4月等！

请各位老师费心，看代码怎么修改一下，才能按人、按月份填充！

谢谢！

实例发上来测试