去掉datacolchanged事件的代码，然后用下面的代码测试。我测试正确。
Dim r As Row = Tables("wx").Current
DataTables("rukudan").Save
DataTables("weixin").Save
DataTables("wx").Save
Dim rks As Double = DataTables("rukudan").sqlCompute("sum(shuliang)", "name = '" & r("name") & "'")
Dim rks1 As Double = DataTables("weixin").sqlCompute("sum(shuliang)", "name = '" & r("name") & "'")
Dim cks As Double = DataTables("wx").sqlCompute("sum(shuliang)", "name = '" & r("name") & "'")
If cks + rks1 > rks Then
msgbox("无法出库,库存不足")
Else
Dim count As Integer = 0
Dim drs As List(Of DataRow) = DataTables("rukudan").Select("name = '" & r("name") & "'", "_Sortkey")
For i As Integer = 0 To drs.count - 1
Dim dr As DataRow = drs(i)
count += dr("shuliang")
Dim sy As Integer = count - (cks + rks1 - r("shuliang"))
If sy >= 0 Then
Dim cb, cbs As Double
count = 0
For j As Integer = i To drs.count - 1
dr = drs(j)
If j = i Then
count += sy
cb = sy * dr("price")
Else
count += dr("shuliang")
cb = dr("shuliang") * dr("price")
sy = dr("shuliang")
End If
If count >= r("shuliang") Then
cbs += (r("shuliang") - (count - sy)) * dr("price")
r("cb")=cb
r("cbs")=cbs
r("bb") = count
r("lirun") = r("shuliang") * r("price") - cbs
msgbox(r("lirun"))
Exit For
Else
cbs += cb
End If
Next
Exit For
End If
Next
End If
加好友 
发短信
Post By：2016/2/21 10:52:00 [只看该作者]
此主题相关图片如下：11.png
