[原創]寫5分鐘數據變15分鐘 K線求解呀！======
作者：金字塔 來源：cxh99.com 發布時間：2014年10月25日
- 咨詢內容：
[原創]寫5分鐘數據變15分鐘 K線求解呀！1.我數據庫明明5分鐘數據數據如下：
此主題相關圖片如下：qq圖片20140725003407.jpg
用如下程序導入數據庫
for i=0 to DataCol.length-1
Set His= marketdata.GetHistoryData(StockLabel,Market,2) 'CycType保存周期 0:日線 1:1分鐘 2:5分鐘
His.InsertAt(His.Count)
His.Date(His.Count-1) =xmlInData(DataCol(i).getAttribute("DateTime"))
His.Open(His.Count-1) =DataCol(i).getAttribute("Open")
His.High(His.Count-1) =DataCol(i).getAttribute("High")
His.Low(His.Count-1) =DataCol(i).getAttribute("Low")
His.Close(His.Count-1) =DataCol(i).getAttribute("Close")
His.Volume(His.Count-1) =DataCol(i).getAttribute("Vol")
call His.SaveData(StockLabel,Market,2)
Technic.ReCalcAllGrid
next我是從遠程讀到xml后生成K線
進到K線的數據變成了如下：
此主題相關圖片如下：qq圖片20140724235848.jpg
好多K線這里全部少了！真是查不出問題來！都是按手冊寫的！
[此貼子已經被作者于2014/7/25 0:33:37編輯過]
- 金字塔客服：
你可以考慮使用 Application.msgout 函數, 做一下排除法看看問題出現在那個部分.
比如
讀取到數據庫數據后,你先用Application.msgout 打印輸出一下日期,看看讀到的數據是否正確
讀取數據正確后,再打印his的對象內容看看是否正確,將問題排查范圍逐漸縮小
學會使用一些簡單的調試技巧,是你編寫VBA代碼一個最基本應該掌握的
- 用戶回復：
數據都會進到軟件里了，只是軟件會一下子給你整成15分鐘K線！
- 網友回復：
會不會軟件 必須交錢才有5分鐘K線呀，感覺有這個可能性！我是免費版，在研究測試指標！
- 網友回復：
問題查到了。真是郁悶！
Set His= marketdata.GetHistoryData(StockLabel,Market,2) 這行代碼 最后一個標志錯了。應該是1表示5分鐘
和SaveData中后面一個參數不一樣。哎！真是害死人了！
打印本文
關閉窗口