主题：关于流水账式表的计算效率问题求助（已解决）

我有一个表，有62359行数据，现在执行以下代码，半个小时过去了，还没完成，有没有更好的方法？

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("标识") & "'  ")
        If dr Is Nothing Then '如果没有上一行,说明本行就是同产品的第一行
            mr("余量") = mr("结存量") - mr("入库量")
            If mr("余量") >= 0 Then
                mr("分摊数量") =  mr("入库量")
            Else
                mr("分摊数量") = mr("结存量")
            End If
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [标识] = '" & mr("标识") & "' ")
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
            drs(i)("余量") = drs(i-1)("余量") - drs(i)("入库量")
            If drs(i)("余量") > = 0 Then
                drs(i)("分摊数量") = drs(i)("入库量")
            Else
                drs(i)("分摊数量") = drs(i-1)("余量")
            End If
        Next
End Select

不会是死循环了吧

看你判断列名，不会是在列值改变的事件里吧

 这句，余量和分摊数量不应该写，改一下。

Select Case e.DataCol.Name
    Case "入库量","结存量","标识"

这里改了计算没结果，我要计算分摊数量与余量结果。

我不能采用分页模式，因为这个表是用来计算库龄的，计算出结果后，会按照计算结果删除分摊数量<=0的数据，也就是说6万多行，到最后最多可能留下几千行数据的记录行。

六万多行，运算一次也不用半小时那么恐怖的。

你做个例子发上来测试一下。看5楼。然后看看下面帮助，加上停止执行的代码

http://www.foxtable.com/help/topics/2218.htm

下面是数据测试例子，执行计算后，到最后自己退出了程序。

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

点击浏览该文件:数据测试.rar