老师，我改好了，结果像如图1那个的了，我想让原有行也填充，不够的重分配的按照行放在原有行的下面，填充的内容只需要采购订单号、供应商名称、单价这三列，其他的由我们操作员自己填写。
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
t.DataTable.LoadFilter = "[_identify] is null"
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 dr1 As DataRow = t.DataTable.AppendLoad("[_identify] = " & dr("_identify"), False)(0)
dr1("出库数量") = sl
dr1("可出数量") = dr1("可出数量") - sl
Exit For
Else
Dim dr1 As DataRow = t.DataTable.AppendLoad("[_identify] = " & dr("_identify"), False)(0)
dr1("出库数量") = dr1("可出数量")
sl = sl - dr1("可出数量")
dr1("可出数量") = 0
End If
Next
End If
End If
此主题相关图片如下：1.jpg
加好友 
发短信
Post By：2022/12/5 15:57:00 [只看该作者]
