主题：[求助]行计算

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

谢谢！

 

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

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

点击浏览该文件:txt数据导入.table

谢谢蓝老师！假如我对后台的多只股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

 

 

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

蓝老师，我加了这句代码：if drlist.count = 0 then continue for

是阿里云sql数据源，因为有密码，只发给老师。