UC知道有关数据库的问题，谁能帮个忙。。。
来源：百度知道 编辑：UC知道 时间：2024/06/06 07:02:10
我把label1关联了Adodc1里面的某一个字段，要求窗体单击的时候label1会在每次都发生改变。但为什么一开始可以，单击几下label1就一直是空白的，没有显示任何东西呢？？
Private Sub Form_Click()
Adodc1.Recordset.Find ("编号= " & Int(Rnd * 63 + 1))
'能过编号去查找记录
End Sub
Private Sub Form_Click()
Adodc1.Recordset.Find ("编号= " & Int(Rnd * 63 + 1))
'能过编号去查找记录
End Sub
是不是ADODC1到最后一个 字段 了。
On Error GoTo errhandler
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.movenext
Adodc1.Recordset.Find ("编号= " & Int(Rnd * 63 + 1))
End If
If Adodc1.Recordset.EOF And Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
End If
Exit Sub
errhandler:
MsgBox Err.Description