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