vb.net组合框项必须保存在Formload上

这是我的代码，我是VB.net的新手，请帮助我 这样我就可以将项目添加到以前输入的组合框中

---

在加载表单时，它将显示我输入的所有不同项目

如果您想用

employeedetails

数据库表中包含的部门列表填充您的

组合框

，您可以尝试以下操作：

Private Sub frmemployedetails_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Try

        Dim dr As OleDbDataReader
        opendb()

        cmd.Connection = con
        cmd.CommandText = "Select DISTINCT department from employedetails"

        'Execte reader function is used to hold more than one value from the table
        dr = cmd.ExecuteReader()


        ' Fill a combo box with the datareader
        Do While dr.Read = True
            cbodepartment = dr.Item(0)
        Loop

        con.Close()

    Catch ex As Exception
        MsgBox(ex.Message)

    End Try
    btnupdate.Enabled = False
    fill_grid()
    cbogender.Items.Add("Male")
    cbogender.Items.Add("Female")
End Sub

---

你有什么错误吗。如果是这样的话，它们是什么？兄弟，让我告诉你，我想从我的数据库记录中填充combobox中的数据字段，我该怎么做？有两件事你试图将dr.Item直接添加到cbodepartment对象，而不是它的items集合。如果您在64位windows中运行，则Form Load事件中的任何错误都将被忽略而不显示。因此，请尝试cboDepartment.Items.Add（dr.Item（0））是的，我有64位版本的Windows 7。每当我在formload上运行我的项目时，我必须能够通过Combobox选择以前添加的记录，这样我就可以直接选择它们，而不是再次键入。我在Combobox中只获得一条记录，我希望所有记录都有区别，这没有任何意义。SELECT语句从表中检索所有不同的部门。你确定你的employeedetails表中有不止一个部门吗？是的，兄弟，它只显示了一条记录“it”这在我的EmployeeDetails表中不可用。我有10多个条目，有5个不同的部门。当我在formload上运行我的项目时，我必须能够通过Combobox选择以前添加的记录，这样我就可以直接选择它们，而不是再次键入。我对Combobox如何使用在您的表中不存在。尝试直接在数据库中执行该SQL语句。结果如何？

Dim Connection As OleDb.OleDbConnection
Connection = New OleDb.OleDbConnection("YourConnectionString")

        Dim SQL As String = "SELECT DISTINCT department FROM employedetails"

        Try
            Connection.Open()

            Dim DA As New OleDb.OleDbDataAdapter(SQL, Connection)
            Dim DS As New DataSet("DS")
            DA.Fill(DS)

            Dim DT As DataTable
            DT = DS.Tables(0)

            For Each DR As DataRow In DT.Rows    
                cbodepartment.Items.Add(DR.Item("department").ToString)
            Next

            Connection.Close()

        Catch ex As Exception

            MsgBox(ex.Message)
            Connection.Close()

        End Try