以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  导入问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54882)
--  作者：seal51
--  发布时间：2014/8/6 17:49:00
--  导入问题

有这样一段导入代码：

 

If Tables("导入入库明细_入库明细表").rows.Count > 0 Then

    For Each r1 As Row In Tables("导入入库明细_入库明细表").GetCheckedRows
        Dim  r2 As Row = Tables("付款单.付款明细单").AddNew
        r2("入库单号") = r1("入库单号")
        r2("产品ID") = r1("产品ID")
        r2("未付金额") = r1("未付金额")
        r2("付款金额") = r1("未付金额")
    Next
    e.Form.close   
Else
    MessageBox.Show("该产品已付款!")
End If

 

 

当产品ID一样并导入同一个表中， 未付金额和付款金额会错乱！ 怎么办？
--  作者：有点甜
--  发布时间：2014/8/6 17:53:00
--  

 什么意思？

 

r2("未付金额") = r1("未付金额")
r2("付款金额") = r1("未付金额")
--  作者：seal51
--  发布时间：2014/8/6 18:02:00
--  
一般来说未付金额就是这次的付款金额
--  作者：有点甜
--  发布时间：2014/8/6 18:03:00
--  
例子发上来，说明情况。
--  作者：seal51
--  发布时间：2014/8/6 18:07:00
--  
这个列子做起来就麻烦了， 我现在就做