以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  麻烦版主测试下 这段代码 貌似有BUG  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=97533)

--  作者:zyyh
--  发布时间:2016/5/17 17:10:44
--  麻烦版主测试下 这段代码 貌似有BUG
Sub test3()
   
    bantu="dq"
    pinzh
    Dim changdu_ri,changdu_shi,changdu_zhou
Set shi= marketdata.GetHistoryData(pinzhong,bantu,4)\'取M09连续的时线数据 
    changdu_shi =shi.Count
    Set ri= marketdata.GetHistoryData(pinzhong,bantu,5)\'取M09连续的日线数据 
    changdu_ri =ri.Count
    Set zhou= marketdata.GetHistoryData(pinzhong,bantu,6)\'取M09连续的周线数据 
    changdu_zhou =zhou.Count
    MSGBOX changdu_shi & "  "  &  changdu_ri & "  "  & changdu_zhou  & chr(13) & shi.Count &" " &   ri.Count &" " &   zhou.Count
    Exit sub
 end sub 

取豆粕的数据  测试出来的结果 是 1000  764  160 160 160 160

是不是如果不是会员  加载到了1000条数据K  就会导致后面的出错啊
[此贴子已经被作者于2016-5-17 17:12:33编辑过]

--  作者:zyyh
--  发布时间:2016/5/17 17:13:46
--  
上面的品种是  M09  被和谐了
[此贴子已经被作者于2016-5-17 17:14:00编辑过]

--  作者:王锋
--  发布时间:2016/5/17 17:31:29
--  

HistoryDataMode   历史数据处理处理模式 0默认值,GetHistoryData,GetHistoryDataByDate 方法取到的对象为共享模式;1为独立模式,打开不同品种可以分别处理各自的数据,数据处理完毕后要调用DestroyHistoryData方法销毁内存缓冲区.


--  作者:zyyh
--  发布时间:2016/5/17 20:01:13
--  
谢啦  老大 我清楚啦
--  作者:zyyh
--  发布时间:2016/5/18 7:55:29
--  
实际设置

HistoryDataMode =1

测试结果依然是  如果是同一品种,不同周期间  数据依然错误,无语 ,算了,大不了每次初始化下。
看说明  这个起作用的是 不同品种才有效