[求助]如何实现流水账（入库、出库的数量）自动录入？
求助，流水账的入库、出库的数量分别来入库、出库单：
1.同类产品同日期在同行，如:第三行：PD03入库、出库；
2.同类产品同日期在不同行；
3.在窗体上，按键事件来实现。
对于下图这种区分产品的流水账:
显然也只需重置每个产品的第一行的入库列，即可重算所有行的库存，所以我们也应该加上一个自定义的重置按钮：
Dim nms
As New
List(Of
String)
Dim drs As
New
List(of
DataRow)
With DataTables("表名")
nms = .GetValues("产品")
For Each nm
As String
In nms
'找出每个产品的第一行数据, 添加到集合drs中
drs.Add(.Find("产品
= '"
&
nm
&
"'",
"[_SortKey]"))
Next
For Each dr
As DataRow
In drs
.DataCols("入库").RaiseDataColChanged(dr)
Next
End With
加好友 
发短信
Post By：2019/7/8 21:13:00 [显示全部帖子]
