主题：[求助]循环计算

我把代码输入进去，结果导入内部数据源的时候，名称都变了，所以我就把代码 第一列都替换为GPS产品名称了，然后经纬度都替换第五列，第六列了（其余也都替换成功，变色了！，可是代码第一列后半部分换成GPS产品名称后却变灰了。显示cant find colume [GPS产品名称]

呃，不明白你的意思，红色代码如果不需要，可以删掉。请上传具体的例子说明你的问题。

For Each n As String In DataTables("表A").GetValues("第一列", "第一列 is not null")
    Dim dr1 As DataRow = DataTables("表A").Find("第一列 = '" & n & "'", "第二列")
    Dim dr2 As DataRow = DataTables("表A").Find("第一列 = '" & n & "'", "第二列 desc")
    Dim fdr As DataRow = DataTables("表D").Find("第一列 = '" & n & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表D").AddNew
        fdr("第一列") = n
    End If
    Dim x1 As Double = dr1("第五列")
    Dim y1 As Double = dr1("第六列")
    Dim x2 As Double = dr2("第五列")
    Dim y2 As Double = dr2("第六列")
   
    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
    fdr("第二列") = result
Next

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

点击浏览该文件:管理项目4.table

For Each n As String In DataTables("产品").GetValues("产品", "产品 is not null")
    Dim dr1 As DataRow = DataTables("产品").Find("产品 = '" & n & "'", "日期")
    Dim dr2 As DataRow = DataTables("产品").Find("产品 = '" & n & "'", "日期 desc")
    Dim fdr As DataRow = DataTables("表C").Find("产品 = '" & n & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表C").AddNew
        fdr("产品") = n
    End If
    Dim x1 As Double = dr1("经度")
    Dim y1 As Double = dr1("纬度")
    Dim x2 As Double = dr2("经度")
    Dim y2 As Double = dr2("纬度")
   
    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
    fdr("日期") = result
Next

麻烦帮忙看下 为什么执行不了呢？

如下代码

For Each n As String In DataTables("产品").GetValues("GPS产品名称", "GPS产品名称 is not null")
    Dim dr1 As DataRow = DataTables("产品").Find("GPS产品名称 = '" & n & "'", "日期")
    Dim dr2 As DataRow = DataTables("产品").Find("GPS产品名称 = '" & n & "'", "日期 desc")
    Dim fdr As DataRow = DataTables("表C").Find("第一列 = '" & n & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表C").AddNew
        fdr("第一列") = n
    End If
    Dim x1 As Double = dr1("经度")
    Dim y1 As Double = dr1("纬度")
    Dim x2 As Double = dr2("经度")
    Dim y2 As Double = dr2("纬度")
   
    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
    fdr("第二列") = result
Next

搞定！！感谢！！

以后这个第一列和第二列必须都得是固定的格式了是把！就是第一列必须是GPS产品名称，第二列必须是开始时间是吧？？

 没看到你什么意思。第一列和第二列，你可以换成别的列名，修改列名的时候，代码对应着改

 csv格式不能导入，只能到excel、access、.txt、foxpro等的格式。

 1000万行，建议弄成Acceess数据库，或者SqlServer。

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

可以看这个视频入门。剩下的，就看自己了。

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=24512