主题：执行效率问题，两万多行记录就卡死掉了

数据导入之后，要重新计算收款金额，重置列之后卡死

Select Case e.DataCol.Name
    Case "BianMa"
        Dim Filter As String = "DDBianMa = '" & e.DataRow("BianMa") & "'"
        e.DataRow("DaoZhang") = DataTables("ShouKuan").Compute("Sum(JinE)", Filter)
End Select

我筛选之后再重置列，也是一样的。

我考虑一下狐爸的方法，一直不大喜欢用表达式列。

等了两个小时还没算好  i5  4g   其他的计算都是正常的

单条记录的修改是没有问题的，但是从原先的系统导入数万条记录过来了，不能一条条去编辑，就用了重置列的方法，把之前的数据在重新计算一遍

我已经把其他代码过滤掉了。只保留了这一个

筛选结果出来100行，最后重置列的效果是一样的。也是卡死了