在vb6中循环时执行

谁能帮我做一个边做边不做的循环。 我对编程非常陌生：

我需要检查并打印一个列表，并将其限制为5个姓名

Do While Not rsP.EOF And iCount > 5
sLT = sLT & rsP![Name] & vbNewLine
iCount = iCount + 1
rsP.MoveNext
Loop

If rsP.RecordCount > 5 Then
sLT = sLT & "..."
End If

现在它不会打印列表，如果我取出iCount>5，它会显示，但我需要限制它最多只显示5个名称？我应该将iCount更改为什么？

---

感谢假设

iCount

在循环外为零：

iCount>5

最初为false，因此循环不会运行

只需更改为：

Do While Not rsP.EOF And iCount < 5

Do While Not rsP.EOF和iCount<5

假设

iCount

在循环外为零：

iCount>5

最初为false，因此循环不会运行

只需更改为：

Do While Not rsP.EOF And iCount < 5

Do While Not rsP.EOF和iCount<5

假设

iCount

在循环外为零：

iCount>5

最初为false，因此循环不会运行

只需更改为：

Do While Not rsP.EOF And iCount < 5

Do While Not rsP.EOF和iCount<5

假设

iCount

在循环外为零：

iCount>5

最初为false，因此循环不会运行

只需更改为：

Do While Not rsP.EOF And iCount < 5

Do While Not rsP.EOF和iCount<5

放弃使用否定逻辑：

Do Until rsP.EOF Or iCount >= 5
    sLT = sLT & rsP![Name] & vbNewLine
    iCount = iCount + 1
    rsP.MoveNext
Loop

---

放弃使用否定逻辑：

Do Until rsP.EOF Or iCount >= 5
    sLT = sLT & rsP![Name] & vbNewLine
    iCount = iCount + 1
    rsP.MoveNext
Loop

---

放弃使用否定逻辑：

Do Until rsP.EOF Or iCount >= 5
    sLT = sLT & rsP![Name] & vbNewLine
    iCount = iCount + 1
    rsP.MoveNext
Loop

---

放弃使用否定逻辑：

Do Until rsP.EOF Or iCount >= 5
    sLT = sLT & rsP![Name] & vbNewLine
    iCount = iCount + 1
    rsP.MoveNext
Loop

---

问题是试图在同一语句中计算记录集EOF和循环计数。尝试循环记录集，并在打印所需数量的记录后退出循环。如果记录少于5条，则Do While语句的计算结果将为False，这将退出循环

Do While Not rsP.EOF
    sLT = sLT & rsP![Name] & vbNewLine
    iCount = iCount + 1
    If iCount >= 5 Then
        Exit Do
    End If
    rsP.MoveNext
Loop

---

问题是试图在同一语句中计算记录集EOF和循环计数。尝试循环记录集，并在打印所需数量的记录后退出循环。如果记录少于5条，则Do While语句的计算结果将为False，这将退出循环

Do While Not rsP.EOF
    sLT = sLT & rsP![Name] & vbNewLine
    iCount = iCount + 1
    If iCount >= 5 Then
        Exit Do
    End If
    rsP.MoveNext
Loop

---

问题是试图在同一语句中计算记录集EOF和循环计数。尝试循环记录集，并在打印所需数量的记录后退出循环。如果记录少于5条，则Do While语句的计算结果将为False，这将退出循环

Do While Not rsP.EOF
    sLT = sLT & rsP![Name] & vbNewLine
    iCount = iCount + 1
    If iCount >= 5 Then
        Exit Do
    End If
    rsP.MoveNext
Loop

---

问题是试图在同一语句中计算记录集EOF和循环计数。尝试循环记录集，并在打印所需数量的记录后退出循环。如果记录少于5条，则Do While语句的计算结果将为False，这将退出循环

Do While Not rsP.EOF
    sLT = sLT & rsP![Name] & vbNewLine
    iCount = iCount + 1
    If iCount >= 5 Then
        Exit Do
    End If
    rsP.MoveNext
Loop

---

---

谢谢，我试过了，但即使我少于5张唱片，它仍会打印/显示5张唱片。如果你少于5张唱片，它怎么能打印5张唱片？谢谢，我试过了，但即使我少于5张唱片，它仍会打印/显示5张唱片。如果你少于5张唱片，它怎么能打印5张唱片？谢谢，我试过了，但即使我少于5条记录，它仍然打印/显示5条记录。如果你少于5条记录，它如何打印5条记录？谢谢，我试过了，但即使我少于5条记录，它仍然打印/显示5条记录。如果你少于5条记录，它如何打印5条记录？再次感谢，如果我使用上面的代码，它给了我错误：编号3021错误：Dource ADODB.field。BOF或EOF为真，或者当前记录已被删除。拒绝……在这里很好用。您是否设置了

iCount=0

并在循环之前调用

rsP.MoveFirst

？再次感谢，如果我使用上面的代码，它会给我错误：号码3021错误：Dource ADODB.field。BOF或EOF为真，或者当前记录已被删除。拒绝……在这里很好用。您是否设置了

iCount=0

并在循环之前调用

rsP.MoveFirst

？再次感谢，如果我使用上面的代码，它会给我错误：号码3021错误：Dource ADODB.field。BOF或EOF为真，或者当前记录已被删除。拒绝……在这里很好用。您是否设置了

iCount=0

并在循环之前调用

rsP.MoveFirst

？再次感谢，如果我使用上面的代码，它会给我错误：号码3021错误：Dource ADODB.field。BOF或EOF为真，或者当前记录已被删除。拒绝……在这里很好用。您是否设置了

iCount=0

并在循环之前调用

rsP.MoveFirst

？