获取combobox

 '获取ComboBox
        Try
            Dim StrCon As String = Label1.Text
            Dim MyConn As OleDbConnection = New OleDbConnection()
            MyConn.ConnectionString = StrCon
            Dim StrCom As String = "sql"
            Dim MyData As New DataSet
            MyConn.Open()
            Dim mycom As OleDbDataAdapter = New OleDbDataAdapter(StrCom,MyConn)
            mycom.Fill(MyData,"1")
            ComboBox1.DataSource = MyData
            ComboBox1.DisplayMember = "1.1"
            ComboBox1.ValueMember = "1.2"
            MyConn.Close()
        Catch ex As Exception
            MsgBox("出错！")
        End Try

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!