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這個函數應該是有問題的，就是在部分市場無法存儲成功數據！！請管理員反映這個問題，并解決