ComboBox显示重复值

Question

我想添加ComboBox的项目。我已成功添加商品，但ComboBox有重复商品。为什么呢？

这是我的代码：

Public Sub load_consigneecode()
    Dim con As OleDbConnection = New OleDbConnection(constring)
    con.Open()
    Dim sql As String = "select con_code from TblConsignee order by con_code"
    Dim cmd As New OleDbCommand(sql, con)
    Dim myreader As OleDbDataReader = cmd.ExecuteReader()

    While myreader.Read()
        cmbCode.Items.Add(myreader(0).ToString)
    End While

    myreader.Close()
    con.Close()
End Sub

结果如下：

在我的表格中

Answer 1

在添加新项目之前，您可能无法清除ComboBox中的项目：

cmbCode.Items.Clear()

也就是说，您使用.DataSource更好地绑定ComboBox的{​​{1}}并设置DataTable和.DisplayMember属性。

我还会考虑实施Using：

  

有时，您的代码需要非托管资源，例如文件句柄，COM包装器或SQL连接。使用块可确保在代码完成后处理一个或多个此类资源。这使得它们可供其他代码使用。

根据更改，您的代码将如下所示：

.ValueMember

Answer 2

我要检查的第一件事是确保你没有添加两次

我要回忆的第二件事是：

cmbCode.Items.Clear()

在添加项目之前的函数开头

Answer 3

db.runCommand( {"collMod" : <collection> , "index" : {keyPattern: <index_spec>, expireAfterSeconds: <seconds> } } )

否则在SQL查询中使用 distinct