LookUpEdit DevExpress

LookUpEdit ini seperti perpaduan antara ComboxEdit dengan Grid, anda bisa menentukan column yang akan tampilkan dalam bentuk grid (multicolumn), tapi anda hanya memilih salah satu dari pilihan tersebut.

Contoh berikut saya akan ambil data dari database kemudian data tersebut akan saya isi ke dalam LookUpEdit. anda bisa memilih hanya beberapa column saja yang di tampilkan dalam LookUpEdit, atau anda juga bisa menampilan semua column yang ada di dalam tabel database, tergantung mana yang ada pilih, tapi yang pasti anda hanya dapat satu (1) value saja. Dalam contoh ini saya ingin mengambil noid, sedangkan tampilan ketika saya pilih yang keluar adalah nama di LookUpEdit.

Buatlah New Project, kemudian tambahkan LookUpEdit ke dalam form, kemudian setting properties sebagai berikut :

No	Properties	Value
1	Name	lookUpEdit1
2	BestFitMode	BestFitResizePopup
3	TextEditStyle	Standard
4	Column
	1. Column1
	Caption	No Id
	FieldName	noid
	2. Column2
	Caption	Nama
	FieldName	nama

Tambahkan labelcontrol dan ganti Text di properties menjadi LookUpEdit.
Untuk Data saya menggunakan Access, adapun scripts adalah sebagai berikut :

   

' 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, "sample") ' sample hanya penamaan di dataset, bisa diisi bebas
LookUpEdit1.Properties.DataSource = dsReg.Tables("sample")
LookUpEdit1.Properties.DisplayMember = dsReg.Tables("sample").Columns("nama").ToString
LookUpEdit1.Properties.ValueMember = dsReg.Tables("sample").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

   

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

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

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

Setelah selesai tekan tombol F5, maka akan tampak seperti ini :

Semoga membantu, selamat mencoba.....

Salam

Download source code :
LookUpEdit