标题：SAVEDATA无法保存数据的问题？

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