以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  SAVEDATA无法保存数据的问题？  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=56456)
--  作者：jason_udu
--  发布时间：2013/9/10 14:27:33
--  SAVEDATA无法保存数据的问题？

 

Sub SaveDataInfo\'(codeid, marketid)

set grid=technic.GetGridByIndex(0)
set historydata=grid.gethistorydata()

getCode=grid.stocklabel
codeid="zb0001"
marketid=grid.market


if(Not MarketData.IsExistStock(codeid, marketid)) then
    Application.MsgOut(codeid)
    Call MarketData.AddStock(codeid, marketid, codeid&"自编")
 end if
 
 Set History = MarketData.GetHistoryData(getCode, marketid,0)
 Call History.SaveData(codeid, marketid, 1)
 Set History = MarketData.GetHistoryData(getCode, marketid,1)
 Call History.SaveData(codeid, marketid, 2)
 Set History = MarketData.GetHistoryData(getCode, marketid,5)
 Call History.SaveData(codeid, marketid, 0)

 

msgbox MarketData.GetHistoryData(getCode, marketid,5).count & "," & marketdata.GetHistoryData(codeid,marketid,5).count
End Sub

 

程序的本意是新建一个证券，并把getCode的数据保存到codeid的证券中，但结果codeid中的数据为空，请问是什么原因？？谢谢！

 

 

 
--  作者：rushtaotao
--  发布时间：2013/9/10 15:31:38
--  
加一下application 看下到哪步了
--  作者：jason_udu
--  发布时间：2013/9/10 16:03:51
--  

不行，addstock这个函数应该是有问题的，就是在部分市场无法存储成功数据！！请管理员反映这个问题，并解决