以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  [求助]高手指教循环输出问题  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=2404)
--  作者：明心
--  发布时间：2010/8/9 9:37:40
--  [求助]高手指教循环输出问题

我当初的想法是通过这种方式把在主力合约出入到自选股板块里（markets(i),labels(i)是通过VBA筛选出来的主力合约代码和市场代码） 

Set b = CreateObject("Stock.Block")
    For i = 0 To dominantContract.Count-1
        call b.AddStock(markets(i),labels(i))
        call b.toSave("自选","自选股")
    next

 

我测试了一下啊，这样是输不出来的。

 

然后用老大给的代码

Set b = CreateObject("Stock.Block")
 call b.AddStock("SQ","RB11")
 call b.toSave("自选","自选股")

 

这样是可以输出到自选股板块的

 

我一开始以为我的markets(i),labels(i)有问题，我就修改了一下

Set b = CreateObject("Stock.Block")
    For i = 0 To dominantContract.Count-1
        call b.AddStock("SQ","RB11")
        call b.toSave("自选","自选股")
    next

结果还是输不出来。

 

总结一下。

call b.AddStock("SQ","RB11")
        call b.toSave("自选","自选股")
这个放到道循环里就输不出来。

请教高手指教。

 

这个循环也没有问题，我在其他的过程中也是这样调用的，也能输出的

[此贴子已经被作者于2010-8-9 9:45:40编辑过]
--  作者：volersky
--  发布时间：2010/8/9 13:33:18
--  

楼上，这个dominantContract.Count是什么，我找半天也没找到，会不会是你这个东东出问题了?
--  作者：明心
--  发布时间：2010/8/9 13:48:19
--  
dominantContract.Count，这个是我另外一个函数里的，这个没有问题哦。这个我在其他过程中也调用过的。
--  作者：admin
--  发布时间：2010/8/9 15:19:08
--  

你用application.outmsg函数调试一下看看循环到底被执行了没有，此外，你的逻辑也有问题，应该是

Set b = CreateObject("Stock.Block")
    For i = 0 To dominantContract.Count-1
        call b.AddStock("SQ","RB11")
    next

call b.toSave("自选","自选股")
--  作者：明心
--  发布时间：2010/8/9 16:14:43
--  
我测试过了。没有问题了。谢谢了。还是用了原来的样子呵呵。搞定了。