老师,请帮忙看一下下面的代码有问题:写入资金计划表有问题,而写入资金申请表就没有问题,凡与资金计划表有关的代码就有问题,不知是哪里有冲突
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