两条listindex后出错求助！

sdj1211

    cnn.Open data.数据库
    SQL = "select * from " & 信息种类 & ""
    rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
       查询项目.Clear
       条件值1.Clear
       条件值2.Clear
        For i = 0 To rs.Fields.Count - 1
            查询项目.AddItem rs.Fields(i).Name
            查询项目2.AddItem rs.Fields(i).Name
        Next i
    If 查询项目.ListCount > 0 Then 查询项目.ListIndex = 1
    If 查询项目2.ListCount > 0 Then 查询项目2.ListIndex = 2
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
以上代码F8单步运行到    If 查询项目.ListCount > 0 Then 查询项目.ListIndex = 1后退出了过程，而没继续往下运行，
  去掉  If 查询项目2.ListCount > 0 Then 查询项目2.ListIndex = 2 后能正常。
麻烦给看看，为什么不能用两条listindex？有什么办法解决吗？

蓝桥玄霜

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。

ivccav

描述不清，“ 查询项目.ListIndex = 1后退出了过程，而没继续往下运行”，你确定是“退出程序”而不是下一句报错吗？
没有附件，我不好修改代码，我认为如下代码需要修改，加一句rs.movenext和do循环：

do while not rs.eof
For i = 0 To rs.Fields.Count - 1
            查询项目.AddItem rs.Fields(i).Name
            查询项目2.AddItem rs.Fields(i).Name
            rs.movenext
Next i
loop

只有一条数据，是没有办法让查询项目2.ListIndex = 2

sdj1211

ivccav 发表于 2018-8-9 15:35
描述不清，“ 查询项目.ListIndex = 1后退出了过程，而没继续往下运行”，你确定是“退出程序”而不是下一 ...

感谢帮助，加rs.movenext解决问题了。
能教下do while not rs.eof。。。。。。loop的作用吗？

ivccav

sdj1211 发表于 2018-8-9 19:02
感谢帮助，加rs.movenext解决问题了。
能教下do while not rs.eof。。。。。。loop的作用吗？

解决问题就行了，你没附件，我也是猜测的。

do while not rs.eof。。。。。。loop的作用是只要rs对象还有数据就一直循环。EOF属性和BOF是结束标志和开始标志。