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

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

谢谢。

 把_sortkey改成你的排序列。

 看完 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=96147&skin=0

 把_sortkey改成出入库日期。

 多条件的，有多少个条件，那么合成的字符，就连接多少个字符。

 不会做，上传实例。

 为什么要修改datacolchanged事件？

 既然你排序了，那么，aftermoveRow就不会有效了，不需要写。

上传实例说明你的问题。