[求助]如何实现流水账（入库、出库的数量）自动录入？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

[求助]如何实现流水账（入库、出库的数量）自动录入？

求助，流水账的入库、出库的数量分别来入库、出库单：

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

主题：[求助]如何实现流水账（入库、出库的数量）自动录入？