老师，我改成了红色的，我一次性出库数量大于可出数量时，按照正常的操作，应该是CGDD220727002 出库数量：734，剩下的66件，应该出这个订单号，CGDD220815010，但红色部分的代码只能做成如图1那样的，正确的应该是如图2，请帮忙看看！
If e.KeyCode = Keys.Enter Then
Dim sl As Integer = Val(e.Sender.Text)
Dim bm As String = e.Form.Controls("材料编码1").text
If sl > 0 AndAlso bm > "" Then
Dim t As Table = e.Form.Controls("出库").Table
If t.DataTable.HasChanges Then
t.DataTable.save
End If
If DataTables("入库明细").GetValues("供应商名称", "成品编码='" & bm & "' And 入库类型= '在库'").count > 1 Then
Vars("bm") = bm
Forms("窗口1").Open
End If
Dim filter As String = "成品编码='" & bm & "'And 入库类型= '在库'"
If vars("供应商名称") > "" Then
filter = filter & " and 供应商名称='" & vars("供应商") & "'"
End If
For Each dr As DataRow In DataTables("入库明细").Select(filter, "采购订单号")
If dr("可出数量") >= sl Then
Dim dr8 As Row = Tables("零件库领料单_出库").current
Dim Filter1 As String = "成品编码= '" & dr8("成品编码") & "' and 入库类型 = '在库'"
dr8("采购订单号") = DataTables("入库明细").SQLCompute("min(采购订单号)", Filter1)
Else
Dim dr1 As DataRow = t.DataTable.addnew
dr1("采购订单号") = dr("采购订单号")
dr1("单价") = dr("单价")
dr1("供应商名称") = dr("供应商名称")
dr1("成品编码") = dr("成品编码")
dr1("成品描述") = dr("成品描述")
dr1("出库数量") = dr("可出数量")
sl = sl - dr("可出数量")
dr("可出数量") = 0
End If
Next
End If
End If
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
加好友 
发短信
Post By：2022/12/11 22:38:00 [只看该作者]
