主题：总分唯一排名代码问题

Select Case e.DataCol.Name

    Case "姓名"

        If e.NewValue > "" Then

            e.DataRow("比对_姓名重复次数") = e.DataTable.compute("count(姓名)", "姓名='" & e.newvalue & "'")

            Dim a As Integer = e.DataTable.compute("count(姓名)", "姓名='" & e.oldvalue & "'")

            e.DataTable.replacefor("比对_姓名重复次数", a, "姓名='" & e.oldvalue & "'")

        Else

            e.DataRow("比对_姓名重复次数") = Nothing

        End If

End Select

这个代码我放在表DataColChanged事件中，行数不多时运行正常的；可是我将此代码放在两三万行的表中，重置姓名列，就运行不知道多长时间，不见程序运行完毕，请问老师这是什么原因？怎么修改代码？