到底要说多少次啊
Dim r As Row = Tables("wx").Current
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") & "' and [_Identify] < " & r("_Identify"))
If cks + rks1 > rks Then
msgbox("无法出库,库存不足")
Else
Dim count As Integer = 0
Dim drs As List(Of DataRow) = DataTables("rukudan").Select("name = '" & r("name") & "'", "_Identify")
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
' msgbox(cbs & count)
r("lirun") = r("shuliang") * r("price") - cbs
Exit For
Else
cbs += cb
End If
Next
Exit For
End If
Next
End If
加好友 
发短信
Post By：2016/3/8 21:57:00 [显示全部帖子]
