Question

我有一个下拉组合框，根据第一个组合的值填充下拉组合框。这很好。但是，如果我在下拉列表中选择一个项目并关闭表单，当我重新打开时，旧值仍会显示在下拉列表中，而不是首次打开表单时的默认值。我正在填充from_load事件和dropdownstyle =下拉列表的下拉列表。如果有人可以帮助我，我将不胜感激。非常感谢

'Routine to fill customer combo box

    Sub fillClientCombo()
        DBConnection.connect()
        sql = "SELECT * from Customers"

        Dim cmd As New OleDb.OleDbCommand
        cmd.CommandText = sql
        cmd.Connection = oledbCnn
        dr = cmd.ExecuteReader

        cmbCustomer.Text = "Select a customer"
        cmbDept.Text = "Select a dept"
        cmbRequestBy.Text = "Select a contact"

        While (dr.Read())

            cmbCustomer.Items.Add(dr("Code"))

        End While

        cmd.Dispose()
        dr.Close()
        oledbCnn.Close()
    End Sub

Answer 1

将FormClosed事件添加到表单并清除或重置组合框。

Answer 2

这很简单，只需在填充之前清除ComboBox：

Sub fillClientCombo()
    cmbCustomer.Items.Clear()'<-- Do this first
    '...Your code
End Sub

在表单关闭时将Combobox恢复到原始状态

2 个答案: