CheckedComboBoxEdit DevExpress

Seperti ComboBox  pada Visual Studio, perbedaannya adalah pada CheckedComboBoxEdit anda harus memilih minimal satu (1) pilihan, anda bisa memilih sesuka anda di dalam CheckedComboBoxEdit, untuk memilih semua pilihan yang ada di dalamnya anda cukup memilih Select All.

Buat New Project , beri nama CheckedComboBoxEdit, kemudian , tambahkan control labelcontrol kemudian ganti Text-nya menjadi CheckedComboBoxEdit . Tambahkan CheckedComboBoxEdit .

berikut adalah scripts dari Project CheckedComboBoxEdit

'Ambil data dari database
Sub ConnectionDB()
Try
opencon()
Using dsReg As New DataSet()
Dim cmd As New OleDbCommand("select * from sample", con)
Dim daReg As New OleDbDataAdapter(cmd)
daReg = New OleDbDataAdapter(cmd)
dsReg.Tables.Clear()
daReg.Fill(dsReg, "checked") ' sample hanya penamaan di dataset, bisa diisi bebas
CheckedComboBoxEdit1.Properties.DataSource = dsReg.Tables("checked")
CheckedComboBoxEdit1.Properties.DisplayMember = dsReg.Tables("checked").Columns("nama").ToString
CheckedComboBoxEdit1.Properties.ValueMember = dsReg.Tables("checked").Columns("noid").ToString
End Using
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
Finally
con.Close()
End Try
End Sub

   

Database yang saya gunakan memakai Access dengan koneksi OleDB, anda bisa merubahnya disesuaikan dengan database yang anda gunakan. Untuk properties CheckedComboBoxEdit1 tidak ada yang di rubah.

Sedikit penjelasan :
CheckedComboBoxEdit1.Properties.DisplayMember = dsReg.Tables("sample").Columns("nama").ToString
Fungsi script diatas adalah untuk menampilkan nama pada CheckedComboBoxEdit1

CheckedComboBoxEdit1.Properties.ValueMember = dsReg.Tables("sample").Columns("noid").ToString
Fungsi ini untuk mengisi value dari data yang di ambil adalah noid, walaupun di tampilan CheckedComboBoxEdit1 yang tampil adalah nama, tapi nilai yang di ambil adalah noid.

Jika ingin yang di tampilkan noid maka anda harus mengganti baris berikut :
CheckedComboBoxEdit1.Properties.DisplayMember = dsReg.Tables("sample").Columns("nama").ToString
menjadi
CheckedComboBoxEdit1.Properties.DisplayMember = dsReg.Tables("sample").Columns("noid").ToString

Sekarang jalankan program dengan menekan tombol F5, maka akan tampak seperti berikut :

Selamat mencoba....

Salam


Download source code :
CheckedComboBoxEdit