- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何实现流水账（入库、出库的数量）自动录入？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137532)
-- 发布时间：2019/7/8 21:13:00
-- [求助]如何实现流水账（入库、出库的数量）自动录入？
[求助]如何实现流水账（入库、出库的数量）自动录入？
求助，流水账的入库、出库的数量分别来入库、出库单：
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
-- 发布时间：2019/7/8 21:40:00
--
没搞懂到底要做什么。可以看看