qry = "select * from table1"
qry1 = "select * from table2"
while rs1.eof <> true and rs2.eof <> true
combo1.additem rs1("a") & " - " & rs2("b")
rs1.movenext
rs2.movenext
wend
manggilnya :
dim c
c = split(combo1.text," - ")
msgbox c(0)
----- Original Message -----
From: "Udin" <[EMAIL PROTECTED]>
To: <Programmer-VB@yahoogroups.com>
Sent: Tuesday, February 21, 2006 5:08 PM
Subject: [Programmer-VB] Combo Box dengan 2 Kolom
> Dengan hormat,
> Gimana caranya supaya combobox bisa diisi dua kolom,
1 kolom "Kode" dan 1
> kolom lagi "Keterangan", tetapi setelah dipilih yang
muncul kolom Kode
saja,
> bisa nggak ya ?, mohon bantuannya
>
> Regards
> Udin
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
