1 2 3 4 5 6 7 8 9 10 11 12
| Dim com As New SqlCommand("select * from tatable", m_con)
dim ds as new dataset
dim dt as new datatable
dim da as new sqldataadapter(com)
da.fill(ds,"tatable")
dt=ds.Tables("tatable")
MultiComboBox1.DataSource = dt
MultiComboBox1.Columns.Add(New ListBoxComboxMulticolonne.MultiComboBox.Column(50, "champ1"))
MultiComboBox1.Columns.Add(New ListBoxComboxMulticolonne.MultiComboBox.Column(250, "champ2"))
MultiComboBox1.Columns.Add(New ListBoxComboxMulticolonne.MultiComboBox.Column(100, "champ3"))
MultiComboBox1.Columns.Add(New ListBoxComboxMulticolonne.MultiComboBox.Column(250, "champ4"))
MultiComboBox1.Columns.Add(New ListBoxComboxMulticolonne.MultiComboBox.Column(50, "champ5")) |
Partager