主题：高效率的流水账设计

哪里错了，帮我改改。

Select Case e.DataCol.Name
    Case "入库","领用","借用","还回"
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") '找出上一行
        If dr Is Nothing Then '如果没有找到上一行,说明本行就是第一行
            e.DataRow("库存") = e.DataRow("入库") - e.DataRow("领用")- e.DataRow("借用") + e.DataRow("还回")
        dr = e.DataRow
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"), "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
            drs(i)("库存") = drs(i-1)("库存") + drs(i)("入库") - drs(i)("领用")- drs(i)("借用")+ drs(i)("还回")
        Next   
End Select

此主题相关图片如下：7nbc8rq%nlixfk2ba8a`k98.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:仓库管理 .table

统计错误