0

我combobox.DropDown在更改事件中使用方法时遇到问题，将仅显示 1 个带有滚动条的结果以显示其他结果。

Private Sub emp_name_Change()
    Call Connect_to_db

    strSQL = "SELECT [Name] , [ID] FROM Table2 where [Name] Like '%" & emp_name & "%' Order By [Name]; "

    rs.Open strSQL, cn

    If rs.bof = True Or rs.EOF = True Then
        MsgBox ("No records found")
    Else
        rs.MoveFirst
    End If

    With emp_name
        .Clear
        Do While Not rs.EOF
            .AddItem rs.Fields(0).Value
            rs.MoveNext
        Loop
    End With

    Call Close_db

    emp_name.DropDown
End Sub
4

2 回答 2

1

更改Private Sub emp_name_Change()并Private Sub emp_name_Click()移动零件With emp_name内部Else

试试这个（未经测试）

Private Sub emp_name_Click()
    Call Connect_to_db

    strSQL = "SELECT [Name] , [ID] FROM Table2 where [Name] Like '%" & emp_name & "%' Order By [Name]; "

    rs.Open strSQL, cn

    If rs.bof = True Or rs.EOF = True Then
        MsgBox ("No records found")
    Else
        rs.MoveFirst

        With emp_name
            .Clear
            Do While Not rs.EOF
                .AddItem rs.Fields(0).Value
                rs.MoveNext
            Loop
        End With
    End If

    Call Close_db

    emp_name.DropDown
End Sub
于 2013-11-10T09:42:32.157 回答
0

是的，我需要使用更改事件来完成此操作。我正在尝试创建一个组合框，您可以在其中键入一个字母，并且列表仅显示那些以该字母/那些字母开头的条目。

我可以在打开文件并使用高级过滤器时检索整个数据。这是最好的方法吗？

于 2013-11-13T09:32:03.050 回答