Question

vb6.0语句： if not（rs.eof and rs.bof） then do循环语句提示下标越界

if not（rs.eof and rs.bof） then
do white not rs.fields（0）=XPCombo1.text
rs.movenext
loop
end if
ClassReport.sections(4).controls("label15").caption=rs.fields(2)
运行可以到最后一条，结果也是我想要的，但是在往下不执行，出现下标越界提示，请大神帮帮忙，给20财富值

Answer 1

把条件修改一下：
例如 not rs.bof or not rs.eof
if not（rs.eof or rs.bof） then
do white not rs.fields（0）=XPCombo1.text
rs.movenext
loop
end if
ClassReport.sections(4).controls("label15").caption=rs.fields(2)

追问

条件改成or了，if not（rs.eof or rs.bof） then也是提示下标越界