[原创]写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中后面一个参数不一样。哎！真是害死人了！