combobox - 如何在 Visual Basic 中刷新组合框

Question

单击按钮时，它会使用您创建的所有数据库填充一个组合框。另一个按钮创建一个新数据库。如何刷新组合框以添加新添加的数据库？

这是我在开始时填充组合框的方式：

rs.Open "show databases", conn
While Not rs.EOF
    If rs!Database <> "information_schema" Then
        Combo1.AddItem rs!Database
    End If
    rs.MoveNext
Wend
cmdOK.Enabled = False
cmdCancel.Enabled = False
frmLogin.Height = 3300

rs.Close

Answer 1

如果您碰巧手头有数据库名称，这很简单：

Combo1.AddItem "<new database name>"

否则，您应该从源刷新数据库列表：

Sub RefreshDatabaseList(ByRef conn As Connection)

    Dim rs As Recordset

    ' Remove all previous entries.
    Combo1.Clear

    ' Rebuild the list.
    rs.Open "show databases", conn
    While Not rs.EOF
        If rs!Database <> "information_schema" Then
            Combo1.AddItem rs!Database
        End If
        rs.MoveNext
    Wend

End Sub

Answer 2

你可以刷新组合

Combo1.Refresh()