共5 条记录, 每页显示 10 条, 页签: [1]

标题：[求助]高手指教循环输出问题

1楼

明心发表于：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编辑过]

2楼

volersky 发表于：2010/8/9 13:33:18

楼上，这个dominantContract.Count是什么，我找半天也没找到，会不会是你这个东东出问题了?

3楼

明心发表于：2010/8/9 13:48:19

dominantContract.Count，这个是我另外一个函数里的，这个没有问题哦。这个我在其他过程中也调用过的。

4楼

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("自选","自选股")

5楼

明心发表于：2010/8/9 16:14:43

我测试过了。没有问题了。谢谢了。还是用了原来的样子呵呵。搞定了。

共5 条记录, 每页显示 10 条, 页签: [1]