主题：[求助]批量导入自动扩表获取数据

“预算使用申请表”与“基础预算表”间设置了“预算编号”关联，只要预算使用申请表填写了“预算编号”，就会自动从“基础预算表”中获取“一级科目”、“预算金额”等数据，单条记录的时候可以实现，但是批量导入的时候只有第一条生效，咋整，是不是代码要优化呢？
此主题相关图片如下：2.jpg


此主题相关图片如下：1.jpg

datacolchanged

With Tables("预算使用申请表").Current
'    Dim r As Row = Tables("预算使用申请表").Current
    If .IsNull("预算编号") = False Then
        Dim r As Row = Tables("预算使用申请表").Current
        Dim dr As DataRow
        Dim dr1 As DataRow
        dr = DataTables("基础预算表").Find("[预算编号] = '" & Tables("预算使用申请表").Current("预算编号") & "'")
        If dr IsNot Nothing Then
            r("预算项目名称") = dr("项目名称")
            r("预算金额") = dr("预算金额")
            r("一级科目") = dr("一级科目")
            r("二级科目") = dr("二级科目")
            r("三级科目") = dr("三级科目")
            r("四级科目") = dr("四级科目")
            r("五级科目") = dr("五级科目")
        End If

end with

什么意思？乱用？不是用在datacolchanged还能用在哪里？请明示