以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  高级功能研发区  (http://222.73.7.161/bbs/list.asp?boardid=5)
----  请问STKINDI数据的问题  (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=142301)

--  作者:whong
--  发布时间:2016/11/7 14:13:32
--  请问STKINDI数据的问题
我在用STKINDI调用一些公式的数值,调用后,公式数值一直不刷新,不变化。刚学VBA,不知道是什么原因

Call Application.SetTimer(10, 1000)

Set  Formula = marketdata.STKINDI("au00","sq","ma(5,10,20,60)",0,0) \'
  aa=Formula.GetBufData("ma1",Formula.DataSize-1)

Sub APPLICATION_Timer(ID)
If ID = 10 then
      call Application.Msgout (aa)
      call Application.Msgout ("-------------")
end if
End Sub

消息窗口,总是没变化,要用什么方法数值才不断刷新?
-------------
282.01
-------------
282.01
-------------
282.01
-------------
282.01
-------------
282.01
-------------
282.01
-------------
282.01
-------------
282.01
-------------
282.01
-------------
282.01
-------------
282.01
-------------
282.01
-------------
282.01
-------------



--  作者:whong
--  发布时间:2016/11/7 14:28:58
--  
试了一下,好像aa=Formula.GetBufData("ma1",Formula.DataSize-1)  放在定时器里面就行了
--  作者:王锋
--  发布时间:2016/11/7 16:45:46
--  
这个就要放定时器才可以的