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中的数据为空，请问是什么原因？？谢谢！

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