以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  返回值求和  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173747)

--  作者:BG小白
--  发布时间:2021/12/14 14:21:00
--  返回值求和

图片点击可在新窗口打开查看此主题相关图片如下:q1.png
图片点击可在新窗口打开查看

        For Each jt As JToken In jo("result")("column_vals")(0)("column_vals")
            这里不知道该怎么写
        Next
如何写才能求到jt("value")的总和

--  作者:有点蓝
--  发布时间:2021/12/14 14:40:00
--  
dim sum as double

For Each jt As JToken In jo("result")("column_vals")(0)("column_vals")
      sum  = sum  + val(jt("value"))
Next
msgbox(sum)

--  作者:BG小白
--  发布时间:2021/12/14 14:49:00
--  
原来是double,我用Integer怎么试都不对,谢谢
[此贴子已经被作者于2021/12/14 14:50:58编辑过]