[求助]列内容变化后计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]列内容变化后计算

共有5984人关注过本帖树形打印复制链接主题：[求助]列内容变化后计算

gaixuebo

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：74 积分：561 威望：0 精华：0 注册：2014/2/14 13:54:00

[求助]列内容变化后计算 发帖心情

Post By：2014/6/23 20:15:00 [只看该作者]

Dim Arys As List(Of String())

Arys = DataTables("订单").GetValues("产品|客户")

For Each Ary As String() In Arys

Output.Show(Ary(0) & "|" & Ary(1))

此处的OUTPUT函数如果换成一个针对变化的和变化前两列的函数，例如相加怎么计算呢？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/23 20:18:00 [只看该作者]

没看懂你的问题，最好举例说明。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/23 20:19:00 [只看该作者]

是不是问这个？

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

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

gaixuebo

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：74 积分：561 威望：0 精华：0 注册：2014/2/14 13:54:00

Post By：2014/6/23 20:23:00 [只看该作者]

这个例子，只要产品与经度字符串发生变化，就根据这个产品变化前和变化后的经纬度计算出距离，计算函数已经有了。

Dim Arys As List(Of String())

Arys = DataTables("产品").GetValues("名称|经度")

For Each Ary As String() In Arys

Output.Show(Ary(0) & "|" & Ary(1))

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/23 20:26:00 [只看该作者]

是不是3楼的意思？如果不是，上传例子加以说明。

gaixuebo

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：74 积分：561 威望：0 精华：0 注册：2014/2/14 13:54:00

Post By：2014/6/23 20:27:00 [只看该作者]

例子传上去吧。

gaixuebo

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：74 积分：561 威望：0 精华：0 注册：2014/2/14 13:54:00

Post By：2014/6/23 20:27:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:111.table

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/23 20:38:00 [只看该作者]

是不是这个意思？

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

For Each str As String In strs
    Dim drs As List(Of DataRow) = DataTables("产品").Select("名称 = '" & str & "'", "时间")
    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
Next

gaixuebo

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：74 积分：561 威望：0 精华：0 注册：2014/2/14 13:54:00

Post By：2014/6/23 20:42:00 [只看该作者]

就是这个意思，谢谢甜老师

gaixuebo

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：74 积分：561 威望：0 精华：0 注册：2014/2/14 13:54:00

Post By：2014/6/24 10:27:00 [只看该作者]

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

这段代码是把值赋值到C表中的第二列，我想把上面那段得出的结果也赋值到C表中的第三列怎么做啊？甜老师

下一主题 >> << 上一主题

总数 37 1 2 3 4 下一页

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