有这样一段导入代码:
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一样并导入同一个表中, 未付金额和付款金额会错乱! 怎么办?