一个简单的问题请教!

Question

我在一个datacombo 的控件下写了以下脚本
Private Sub DataCombo1_Click(Area As Integer)
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.find "bg_no='" & Trim(DataCombo1.Text) & " '"
End Sub实时错误'2147217887观点(80040e21)'
对象'movefirst'的方法'_recordset'失败 不知道是什么问题
?

Answer 1

数据集可能空，
最好先判断recordcount>0

Answer 2

Private Sub DataCombo1_Click(Area As Integer)
    Adodc1.Recordset.MoveFirst
    If Not Adodc1.RecordSet.Eof Then
        Adodc1.Recordset.find "bg_no='" & Trim(DataCombo1.Text) & " '"
    Else
        DoSomething
    End If
End Sub

Answer 3

肯定数据集不为空
我的目的是当我改边datacombo的直的时候,adodc1移动到相应的记录上,与adodc1绑定的控件的值也相应改变!

Answer 4

AustinLei(夜半琴声:
Private Sub DataCombo1_Click(Area As Integer)
    Adodc1.Recordset.MoveFirst
    If Not Adodc1.RecordSet.Eof Then
        Adodc1.Recordset.find "bg_no='" & Trim(DataCombo1.Text) & " '"
    Else
        DoSomething
    End If
End Sub你的方法我使用过,问题是在
Adodc1.Recordset.MoveFirst
就错了.

Answer 5

只设置datacombo1的rowsource和listfield属性
datasource的属性不要设置，设置就出这样的错了

Answer 6

用combobox做吧，没这么多麻烦

Answer 7

把Adodc1.Recordset.MoveFirst注释掉。

Answer 8

Adodc1.Recordset.MoveFirst
我要这句啊!
不然如何确保下一句的
运行可以准确找到要的记录呢?