ComboBox数据绑定的一个实例

今天在帮大学时的一个老师修改一个管理系统，在combobox数据绑定问题上遇到了一些麻烦，不过经过努力终于搞定。所以决定把这段代码跟大家分享一下。我用的是vb.net2003 。

以下代码实现在combobox中显示数据库中的一张表的一个字段。

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

        Dim strSelect As String

        Dim conn As OleDbConnection, myAdapter As OleDbDataAdapter

        strSelect = "SELECT DISTINCT 入库时间 FROM  ××××"

        Dim myDataSet As DataSet = New DataSet

        conn = New OleDbConnection(gLinkString)

        conn.Open()

        myAdapter = New OleDbDataAdapter(strSelect, conn)

        Dim ds As New DataSet

        myAdapter.Fill(ds)

        Dim i As Int16

        For i = 0 To ds.Tables(0).Rows.Count - 1

            ComboBox7.Items.Add(ds.Tables(0).Rows(i).Item("入库时间").ToString)

        Next i

        conn.Close()

    End Sub