主题：流水账问题

我有一个出入库流水账，现在的代码是这样的：

 

Datacolchanged

 

Select Case e.DataCol.Name

    Case "物料编号","入库数量","出库数量"

        Dim dr As DataRow

        Dim mr As DataRow = e.DataRow

        Dim drs As List(of DataRow)

        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [物料编号] = '" & mr("物料编号") & "'", "[_SortKey] Desc")

        If dr Is Nothing Then

            mr("余数") = mr("入库数量") + mr("出库数量")

            dr = mr

        End If

        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [物料编号] = '" & dr("物料编号") & "'", "[_SortKey]")

        For i As Integer = 1 To drs.Count - 1

            drs(i)("余数") = drs(i-1)("余数") + drs(i)("入库数量") + drs(i)("出库数量")

        Next

        If e.DataCol.Name = "物料编号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then

            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [物料编号] = '" & e.OldValue & "'", "[_SortKey] Desc")

            If dr Is Nothing Then

                dr = e.DataTable.Find("[物料编号] = '" & e.OldValue & "'", "[_SortKey]")

                If dr IsNot Nothing Then

                    dr("余数") = dr("入库数量") + dr("出库数量")

                End If

            End If

            If dr IsNot Nothing Then

                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [物料编号] = '" & dr("物料编号") & "'", "[_SortKey]")

                For i As Integer = 1 To drs.Count - 1

                    drs(i)("余数") = drs(i-1)("余数") + drs(i)("入库数量") + drs(i)("出库数量")

                Next

            End If

        End If

End Select

 

Aftermoverow

Dim Key As Decimal

Dim Index As Integer

Dim Filter As String

Dim r As Row

Index = Math.Min(e.OldIndex, e.NewIndex)

Key = e.Table.Rows(Index)("_SortKey")

r = e.Table.Rows(e.NewIndex)

Filter = "[_SortKey] >= " & Key & " And [物料编号] = '" & r("物料编号") & "'"

e.Table.DataTable.DataCols("入库数量").RaiseDataColChanged(Filter)

 

datarowdeleting

e.DataRow("入库数量") = 0

e.DataRow("出库数量") = 0

 

我的问题是，我在afteropenproject加了排序的代码，所以，待我完全进入系统之后，余数这栏的数据就不对了，也就是说，再也不像流水账了。我希望在对数据进行重新排序之后，流水账的余数也能自动发生变化，应该在哪里加些什么代码呢？

谢谢。

可是我在afteropenproject的排序代码是这样的：Tables("出入库").Sort = "出入库日期,出入库单号,物料编号"。怎么处理好？

我出入库日期是表达式列，如何将出入库日期改为_sortkey?

我在afteropenproject 里面的排序是这样的：Tables("出入库").Sort = "出入库日期,出入原因 desc,出入库单号"，那么如何修改我的datacolumnchanged 和 aftermoverow 代码？谢谢。

我把aftermoveRow删除了，也是达不到要求的效果。

这是我的项目文件。密码是88801。打开后，你即可发现，数据表“出入库”里面的“余数”这栏是不对的。

不知道为什么老是无法上传压缩后的数据库文件？

数据库文件见如下链接：网盘：www.boxpro.cn 登陆：edisontsui@126.com 密码：20111231bs

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

点击浏览该文件:生产运作(20150105).rar

Aftermoverow 里面的代码还要保留吗？