[原创]写5分钟数据变15分钟 K线求解呀！====== - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

[原创]写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

我是从远程读到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中后面一个参数不一样。

哎！真是害死人了！

主题：[原创]写5分钟数据变15分钟 K线求解呀！======