老师，这个问题已解决，另外一个请帮忙看看，就是我有分别有两行，A行和B行，B行是我点击新增按照后新增的一行，我想B行中的可出数量等于 A行中的可出数量 - 出库数量。如图1，这种可以怎么设置呢？谢谢新增按钮控件上的代码：
Dim t As Table = Tables("零件库领料单_出库")
Dim cs() As String = {"生产批次", "库位", "单据日期", "单据类型", "成品编码", "成品描述", "操作类型"}
Dim r As Row = t.current
If r Is Nothing Then
Dim nr As Row = t.addnew
Else
Dim nr As Row = t.addnew
For Each c As String In cs
nr(c) = r(c)
Next
End If
Dim drs As List(Of DataRow) = DataTables("零件库领料单_出库").Select("", "成品编码")
Dim prev As String = ""
For i As Integer = 0 To drs.count - 1
Dim cur As String = drs(i)("成品编码")
If cur = prev Then
drs(i)("可出数量") = drs(i - 1)("可出数量") - drs(i)("出库数量")
prev = cur
End If
Next
此主题相关图片如下：1.jpg
[此贴子已经被作者于2022/12/24 21:07:26编辑过]
加好友 
发短信
Post By：2022/12/24 17:13:00 [显示全部帖子]
