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

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

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