Private Sub Command1_Click()
If Combo1.Text = "" And Combo2.Text = "" And Combo3.Text = "" Then
MsgBox ("请输入一个查询依据!")
Combo1.SetFocus
Exit Sub
End If
If Option1.Value = False And Option2.Value = False And Option3.Value = False Then
MsgBox ("请确定一个搜索依据!")
Exit Sub
End If
If Option1.Value = True Then
If Not IsNumeric(Combo1.Text) Then
MsgBox ("编号请输入数字!")
Combo1.SetFocus
Exit Sub
End If
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find (" 供应商编号 like '" & Combo1.Text & "' ")
If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then
MsgBox "没有找到!"
Else
MsgBox "已经找到!"
DataGrid1.Refresh
End If
Exit Sub
End If
If Option2.Value Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find (" 公司名称 like '" & Combo2.Text & "' ")
If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then
MsgBox "没有找到!"
Else
MsgBox "已经找到!"
DataGrid1.Refresh
End If
Exit Sub
End If
If Option3.Value Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find (" 联系人姓名 like '" & Combo3.Text & "' ")
If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then
MsgBox "没有找到!"
Else
MsgBox "已经找到!"
DataGrid1.Refresh
End If
End If
End Sub
这个能完成跟你的程序一样的功能 不会报错,你那问题你 自己再找找原因!