蓝版，以下代码可以实现按批次自动生成出库行，但我想再完善下代码，实现以下功能：
1、当出库批次”表中，数量列为0时，就自动删除“出库批次”表中，数量列为0的行。
2、当出库数量大于库存数量，提醒库存数量小于出库数量，最多只能出库多少量。
出库表Datacolchanged事件
If e.DataCol.Name = "数量" Then
If e.NewValue > 0 Then
Dim drs As List(Of DataRow) = DataTables("批次库存").Select("零件号='" & e.DataRow("零件号") & "'","零件批次")
Dim sl As Integer = e.NewValue
For Each dr As DataRow In drs
If sl > 0 Then
Dim dr2 As DataRow = DataTables("出库批次").AddNew
dr2("零件号") = dr("零件号")
dr2("零件批次") = dr("零件批次")
If dr("当前库存") > sl Then
dr2("数量") = sl
Return
Else
dr2("数量") = dr("当前库存")
sl = sl - dr2("数量")
End If
Else
Return
End If
Next
End If
加好友 
发短信
Post By：2021/2/20 11:47:00 [只看该作者]
