Private Sub Combo1_Click()
aaa = Combo1.Text
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find " 姓名='" & aaa & "'"
若开始combo1.list中的内容为空时,一启动会出错,怎么避免呢
好像有什么Nomatch,忘了
aaa = Combo1.Text
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find " 姓名='" & aaa & "'"
若开始combo1.list中的内容为空时,一启动会出错,怎么避免呢
好像有什么Nomatch,忘了
exit sub
end if