让data控件和datagrid 控件查询同步

控件和datagrid 控件查询同步"/>

让data控件和datagrid 控件查询同步

Private Sub xpcmdbutton7_Click()
    On Error Resume Next
    Dim TexFind As String, SerchNumber As String
    SerchNumber = Trim(InputBox("请输入要查找的项目 1:按姓名" & vbCrLf & vbCrLf & Space(19) & "2:按公司名称" & vbCrLf & vbCrLf & Space(19) & "3:电话号码 " & vbCrLf & vbCrLf & Space(19) & vbCrLf & "请选择查找方式", 1))
    If Trim(SerchNumber) = vbNullString Then Exit Sub
    Select Case SerchNumber
        Case 1: TexFind = InputBox("请输入要查询的姓名:", "查询")
        Case 2: TexFind = InputBox("请输入要查询的公司名称:", "查询")
        Case 3: TexFind = InputBox("请输入要查询的电话号码:", "查询")
        Case Else: MsgBox "请输入1 或 2 或 3 ", vbOKOnly Or vbInformation, "提示"
    End Select
    If Trim(TexFind) = vbNullString Then Exit Sub
    '   进行根据选择条件查询
    If Trim(SerchNumber) = 1 Then
        Data1.Recordset.FindFirst "联系人" & "=" & "'" & Trim(TexFind) & "'"
    ElseIf Trim(SerchNumber) = 2 Then
        Data1.Recordset.FindFirst "公司名称" & "=" & "'" & Trim(TexFind) & "'"
    ElseIf Trim(SerchNumber) = 3 Then
        Data1.Recordset.FindFirst "电话" & "=" & "'" & Trim(TexFind) & "'"
    End If
    '   如果没有找到记录NoMatch的值为True,找到记录NoMatch的值为False
    If Data1.Recordset.NoMatch Then
        MsgBox "数据库中没有为“" & TexFind & "”的记录", vbExclamation, "查找"
    End If
    If Trim(TexFind) = vbNullString Then Exit Sub
    '   进行根据选择条件查询
    If Trim(SerchNumber) = 1 Then
        Adodc1.RecordSource = "select * from CPXX where 联系人 LIKE '" & Trim(TexFind) & "%" & "'"
        Adodc1.Refresh
    ElseIf Trim(SerchNumber) = 2 Then
        Adodc1.RecordSource = "select * from CPXX where 公司名称 LIKE '" & Trim(TexFind) & "%" & "'"
        Adodc1.Refresh
    ElseIf Trim(SerchNumber) = 3 Then
        Adodc1.RecordSource = "select * from CPXX where 电话 LIKE '" & Trim(TexFind) & "%" & "'"
        Adodc1.Refresh
    End If
End Sub