主题：数据系统自动篡改

 材料入库、付款记录、应付金额3个表构成付款系统，在计算应付金额后，付款记录会自动篡改数据，明明是付给甲的金额，被系统篡改成支付给乙了，在运算的过程中发现不了，在输入时都没问题，只有在发现应付金额表不对才会发现付款记录表有问题，数据被改了。
应该是个bug，但是由于不知道什么原因，解决不了，有谁也碰到类似的问题？

 Dim t As TimeSpan = Date.Today - # 02/20/2010 # 'CDate(e.datarow("入库日期"))
If e.DataRow.IsNull("期初余额") = False Then
    e.datarow("期初天元") = t.TotalDays*e.datarow("期初余额")
End If

if e.datacol.name="供应商" then
    e.datarow("供应商") = e.datarow("供应商").Trim()
    Dim ys As Long
    dim sk as long
    dim qf as long
    ys = DataTables("材料入库").Compute("sum(金额)", "[供应商] = '" & e.datarow("供应商") & "'")
    sk = DataTables("付款记录").Compute("sum(付款金额)","[供应商] = '" & e.datarow("供应商") & "'")
    qf = datatables("应付金额").compute("sum(期初余额)","[供应商] = '" & e.datarow("供应商") & "'")
    e.datarow("应付金额")=ys-sk+qf
    dim qt,ft,st as double
    qt = datatables("应付金额").compute("sum(期初天元)","[供应商]='"  &  e.datarow("供应商")  &  "'")
    ft = datatables("材料入库").compute("sum(天元)","[供应商]='"  &  e.datarow("供应商")  &  "'")
    st = datatables("付款记录").compute("sum(天元)","[供应商]='"  &  e.datarow("供应商")  &  "'")
    e.datarow("天元")=(qt+0.5*(ft-st))/(ft+qt)*t.totaldays   
end if
DataTables("应付金额").DeleteFor("[供应商] is null ")


只有一个人在编辑，编辑完后，都锁定行，并保存。

有关联，关联会出现这个问题吗