vb6 - 仅在 2 个数字之间循环

Question

我一直在推迟问这个问题，因为这似乎是一个我可以解决的简单问题，但我一直在绞尽脑汁，现在无法思考。我尝试了很多不同的代码组合，但似乎找不到正确的组合。

我的两个问题：

• 我需要创建一个只有在变量介于 2 个数字之间时才会触发的循环。示例（这不起作用）：Do While SOPickRS.RecordCount >=1 and <=4

• 我需要一个变量来监视循环所在的记录。计数器可以工作，但是它没有实际的 ADODB 变量吗？

我当前的代码：

While Not SOPickRS.EOF

        Do Until SOPickRS.RecordCount = 4

            'Do Stuff

        Loop

        Do Until SOPickRS.RecordCount = 8

             'Do Stuff

        Loop

        Do Until SOPickRS.RecordCount = 12

           'Do Stuff

        Loop


SOPickRS.MoveNext

Wend

GTG 还指出 RecordCount 不会工作，因为它永远不会改变。

Answer 1

您是否正在尝试这样的事情：

currentRecord = 1
While Not SOPickRS.EOF

    if (currentRecord  >=1 and currentRecord  <=4)
        'Do Stuff
    end if
    currentRecord = currentRecord + 1
wend