- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]行计算 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150134)
-- 发布时间：2020/5/21 18:14:00
-- [求助]行计算
老师好！我计算表中6000多行的涨跌幅，有20多行出错，比如图中1997-5-26这一天的。但是没有找到出错原因，请老师帮助看一下代码。
谢谢！
此主题相关图片如下：002.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:txt数据导入.table |
-- 发布时间：2020/5/21 20:16:00
--
Dim codes As List (Of String) = DataTables("股票信息明细表").GetValues("代码 Is Not Null","代码")
For Each code As String In codes
Dim drlist As List (Of DataRow) = DataTables("股票信息明细表").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%
Next
Next
-- 发布时间：2020/5/21 22:02:00
--
谢谢蓝老师！假如我对后台的多只股票重算涨跌幅，为什么运行到加黑代码处会报错？
Dim codes As List (Of String) = DataTables("股票日线").SQLGetValues("代码","代码 Is Not Null")
For Each code As String In codes
msgbox(code)
Dim drlist As List (Of DataRow) = DataTables("股票日线").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
-- 发布时间：2020/5/21 22:25:00
--
Dim drlist As List (Of DataRow) = DataTables("股票日线").SQLSelect("代码 = \'" & code & "\'","日期")
if drlist.count = 0 then continue for
-- 发布时间：2020/5/22 9:12:00
--
蓝老师，我加了这句代码：if drlist.count = 0 then continue for
后面的代码都没有运行，是怎么回事？但数据是有的~
-- 发布时间：2020/5/22 9:32:00
--
应该是数据有问题，上传实例测试
-- 发布时间：2020/5/22 10:27:00
--
是阿里云sql数据源，因为有密码，只发给老师。
以下内容是专门发给有点蓝浏览
-- 发布时间：2020/5/22 10:36:00
--
Dim drlist As List (Of DataRow) = DataTables("股票日线").SQLSelect("代码 = \'" & code & "\'","","日期")