Question

VB 查询SQL报错！

sqlab1 = "select 不良名词 as tpb from backend_defect where 站点='" + Trim(asd1.Caption) + "'"
rsab1.Open sqlab1, cn, adOpenForwardOnly, adLockOptimistic
If IsNull(rsab1("tpb")) Then
l0.Caption = ""
Exit Sub
Else
Do While Not rsab1.EOF
l0.Caption = Trim(rsab1("tpb"))
rsab1.MoveNext
l1.Caption = Trim(rsab1("tpb"))
rsab1.MoveNext
l2.Caption = Trim(rsab1("tpb"))
rsab1.MoveNext
l3.Caption = Trim(rsab1("tpb"))
rsab1.MoveNext
l4.Caption = Trim(rsab1("tpb"))
rsab1.MoveNext
l5.Caption = Trim(rsab1("tpb"))
rsab1.MoveNext
l6.Caption = Trim(rsab1("tpb"))
....
.....
.....
....
Loop
End If
Set rsab1 = Nothing

如果查询到的数据比我要赋值的label要多，就不会出现问题，但是如果比我要赋值的要少，就会出现错误：运行时错误3021，bof or eof中有一个是真，或当前记录已被删除，所需操作要求有一个当前的记录
也就是我有100个Label要赋值，查询到的记录不到100条就会报错，多于100条就不会，查询的记录不固定，根据条件有时候多有时候少，怎么避免报错。

Answer 1

不嫌烦的修改方案（在原有代码的基础上）

'.............
Else
Do While Not rsab1.EOF
l0.Caption = Trim(rsab1("tpb"))
rsab1.MoveNext
If rsab1.EOF Then Exit Do  '每个rsab1.MoveNext后面都加这行代码
l1.Caption = Trim(rsab1("tpb"))
rsab1.MoveNext
If rsab1.EOF Then Exit Do  '每个rsab1.MoveNext后面都加这行代码
l2.Caption = Trim(rsab1("tpb"))
rsab1.MoveNext
If rsab1.EOF Then Exit Do  '每个rsab1.MoveNext后面都加这行代码
l3.Caption = Trim(rsab1("tpb"))
'.............
'.............
If rsab1.EOF Then Exit Do  '每个rsab1.MoveNext后面都加这行代码
l99.Caption = Trim(rsab1("tpb"))
Exit Do  '第100个标签处理后要加这句，以免记录超过100时还继续循环浪费资源
'...........

简洁一点的修改方案

Dim i As Integer  '声明标签号变量i ，记录集sqlab1和cn连接对象假设楼主已处理妥当
sqlab1 = "select 不良名词 as tpb from backend_defect where 站点='" + Trim(asd1.Caption) + "'" 
rsab1.Open sqlab1, cn, adOpenForwardOnly, adLockOptimistic 
If sqlab1.BOF And sqlab1.EOF Then     
    Exit Sub 
Else    
    Do While Not rsab1.EOF        
        Me.Controls("l" & i).Caption=rsab1.Fields("tpb")         
        rsab1.MoveNext        
        i=i+1        
        If i>99 then Exit Do   '避免标签号码大于99出错    
    Loop 
End If 
Set rsab1 = Nothing

追答

如有问题请追问

如果tpb字段还存在null值的可能，则设置标签要这样处理
Me.Controls("l" & i).Caption=IIf(IsNull(rsab1!tpb),"",rsab1!tpb)

Answer 2

建议label用空间数组，这样就不用一个一个列出来赋值，可以通过循环赋值，这样就可以控制及时跳出循环，就不会出错了。

Answer 3

dim i as integer
on error resume next
for i=1 to rsab1.recordcount

me.Controls("l" & i).caption=rsab1.fields("tpb")
rsab1.MoveNext

next