标题：无法获取历史i数据

1楼

林华强 发表于：2017/3/29 9:52:42

为什么在marketdata.HistoryDataMode=1的情况下，我只获取到了最早的那一根的数据，后面四根都等于0？而在marketdata.HistoryDataMode=0的情况下又可以？

'读取白糖PTA得日线数据

marketdata.HistoryDataMode=1'不同品种为独立的缓冲区

Set HistroyData = marketdata.GetHistoryData("SRX00","ZQ",0,5)'若要是分钟这里填0

Set HistroyData1 = marketdata.GetHistoryData("TA00","ZQ",0,5)'若要是分钟这里填0

msgbox HistroyData.count

for i = 0 to HistroyData.count-1

application.MsgOut "SR"&":"&HistroyData.date(i)&" "&HistroyData.Close(i)&" "&"TA"&":"&HistroyData1.date(i)&" "&HistroyData1.Close(i)

'数据处理完毕后,清理缓冲区

marketdata.DestroyHistoryData
图片点击可在新窗口打开查看

此主题相关图片如下：数据.png

2楼

王锋发表于：2017/3/29 17:01:51

'读取白糖PTA得日线数据

marketdata.HistoryDataMode=1'不同品种为独立的缓冲区

Set HistroyData = marketdata.GetHistoryData("SRX00","ZQ",0,5)'若要是分钟这里填0

Set HistroyData1 = marketdata.GetHistoryData("TA00","ZQ",0,5)'若要是分钟这里填0

msgbox HistroyData.count

for i = 0 to HistroyData.count-1

application.MsgOut "SR"&":"&HistroyData.date(i)&" "&HistroyData.Close(i)&" "&"TA"&":"&HistroyData1.date(i)&" "&HistroyData1.Close(i)

'数据处理完毕后,清理缓冲区

marketdata.DestroyHistoryData

如果上述代码没错的话，建议你看一下你的代码病句问题在哪里

3楼

yukizzc 发表于：2017/3/29 17:08:47

marketdata.DestroyHistoryData

清空缓冲放在循环外，否者你第一次循环就全部清掉了。

共3 条记录, 每页显示 10 条, 页签: [1]