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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]行计算

共有2247人关注过本帖树形打印复制链接主题：[求助]行计算

天一生水

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

加好友

发短信

等级：五尾狐帖子：1140 积分：11255 威望：0 精华：0 注册：2017/9/26 16:30:00

[求助]行计算 发帖心情

Post By：2020/5/21 18:14:00 [只看该作者]

老师好！我计算表中6000多行的涨跌幅，有20多行出错，比如图中1997-5-26这一天的。但是没有找到出错原因，请老师帮助看一下代码。

谢谢！

此主题相关图片如下：002.jpg

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：107751 积分：548094 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/5/21 20:16:00 [只看该作者]

Dim codes As List (Of String) = DataTables("股piao信息明细表").GetValues("代码 Is Not Null","代码")

For Each code As String In codes

Dim drlist As List (Of DataRow) = DataTables("股piao信息明细表").Select("代码 = '" & code & "'","时间")

drlist(0)("涨跌幅") = (drlist(0)("收盘价") - drlist(0)("开盘价")) / drlist(0)("开盘价") * 1%

For i As Integer = 1 To drlist.Count - 1

drlist(i)("涨跌幅") = (drlist(i)("收盘价") - drlist(i - 1)("收盘价")) / drlist(i - 1)("收盘价") * 1%

天一生水

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

加好友

发短信

等级：五尾狐帖子：1140 积分：11255 威望：0 精华：0 注册：2017/9/26 16:30:00

Post By：2020/5/21 22:02:00 [只看该作者]

谢谢蓝老师！假如我对后台的多只股piao重算涨跌幅，为什么运行到加黑代码处会报错？

Dim codes As List (Of String) = DataTables("股piao日线").SQLGetValues("代码","代码 Is Not Null")
For Each code As String In codes
    msgbox(code)
    Dim drlist As List (Of DataRow) = DataTables("股piao日线").SQLSelect("代码 = '" & code & "'","日期")
    msgbox(1)
    'msgbox(drlist(0)("代码") )
    drlist(0)("涨跌幅") = (drlist(0)("收盘价") - drlist(0)("开盘价")) / drlist(0)("开盘价") * 100%
    For i As Integer = 1 To drlist.Count - 1
        drlist(i)("涨跌幅") = (drlist(i)("收盘价") - drlist(i - 1)("收盘价")) / drlist(i - 1)("收盘价") * 100%
    Next
    DataTables("指数日线").SQLUpdate(drlist)
Next