主题：档案引用的问题

老师，请帮忙看一下下面的代码有问题：写入资金计划表有问题,而写入资金申请表就没有问题,凡与资金计划表有关的代码就有问题,不知是哪里有冲突

If e.DataCol.Name = "YFKJE" Then '将付款表的付款金额返写入相应表的地方

    Dim pr As DataRow

        pr = DataTables("ZJJHB").Find("JHBH = '" & e.DataRow("JHBH") & "'")'资金计划表"ZJJHB"的已付款

    If pr IsNot Nothing Then

        pr("FKBM3") = pr("YFKJE") + e.NewValue - e.OldValue

    End If

       pr = DataTables("ZJSQB").Find("SQDBH = '" & e.DataRow("SQDBH") & "'")'资金申请表的实付款金额

    If pr IsNot Nothing Then

        pr("FKJE")= pr("YFKJE") + e.NewValue - e.OldValue

    End If

End If

 

If e.DataCol.Name = "dksj" Then

    Dim pr As DataRow

    pr = DataTables("ZJJHB").Find("jhBH = '" & e.DataRow("jhBH") & "'")

    If pr IsNot Nothing Then

        pr("dksk")= pr("dksj") + e.NewValue - e.OldValue

    End If