主题：[求助]列内容变化后计算

Dim strs As List(Of String) = DataTables("产品").GetValues("名称")

For Each str As String In strs
    Dim drs As List(Of DataRow) = DataTables("产品").Select("名称 = '" & str & "'", "时间")

    if drs.count > 0 then
    Dim dr1 As DataRow = drs(0)
    dr1("距离累加值") = 0
    For i As Integer = 1 To drs.Count - 1
        Dim x1 As Double = drs(i-1)("纬度")
        Dim y1 As Double = drs(i-1)("经度")
        Dim x2 As Double = drs(i)("纬度")
        Dim y2 As Double = drs(i)("经度")
        
        Dim rad As Double = 6371
        Dim p1X As Double = X1 / 180 * Math.PI
        Dim p1Y As Double = Y2 / 180 * Math.PI
        Dim p2X As Double = X2 / 180 * Math.PI
        Dim p2Y As Double = Y2 / 180 * Math.PI
        Dim result As Double = Math.Acos(Math.Sin(p1Y) * Math.Sin(p2Y) + Math.Cos(p1Y) * Math.Cos(p2Y) * Math.Cos(p2X - p1X)) * rad
        drs(i)("距离累加值") = drs(i-1)("距离累加值") + result

Next

end if

我试验了一下，代码没问题，是电脑的问题。1000多行以后才提示，剩下1000来条就可以运算了！！悲催的电脑，我去！！！

 应该跟电脑无关吧？再差的电脑，运行上面的代码也是瞬间完成的，没有你这种情况。

超过1000多条就提示那个数据框，不超过就能正常运算。

 

感觉不可能，没遇见过。

按序排列就能运算几万条了。刚开始用的表格没按产品名称排序，所以就容易死机，谢谢甜老师和BIN老师了

回复36楼

 

Tables("表A").Sort = "产品名称"