Coba aja pake code berikut, siapa tau bisa ngembantu
//// ketika form load
private Sub FORM_Load()
me.show
Input_Combo1
Input_Combo2
end sub
//// action jika combo1 di klik jalanin inout combo2
Private sub Combo1_click()
Input_Combo2
End SUb
//// sub Input combo 1
private sub Input_Combo1
dim adrTemp as new adodb.recordset
combo1.clear
adrTemp.open "Select NmDivisi from DIVISI Order By NmDivisi",nmKoneksi,
adOpenKeyset, adLockReadOnly
do while not adrtemp.eof
combo1.additem adrtemp!Nmdivisi
adrtemp.movenext
loop
adrtemp.close
end sub
/// Input Sub Combo2
private sub Input_Combo2
dim adrTemp as new adodb.recordset
combo2.clear
adrTemp.open "Select Distinct a.NmJasa from jasa A
inner join Divisi B on b.KodeDiv=a.KodeDiv
where B.Nmdivisi='"& combo1.text &"' Order By A.NmJasa",nmKoneksi,
adOpenKeyset, adLockReadOnly
do while not adrtemp.eof
combo2.additem adrtemp!NmJasa
adrtemp.movenext
loop
adrtemp.close
end sub
Thank's
Arief
----- Original Message -----
From: Munthe
To: indoprog-vb@yahoogroups.com
Sent: Thursday, April 21, 2005 12:46 PM
Subject: [indoprog-vb] RE: [Programmer-VB] help me... pls....... (Combo)
urgent
Saya mau tanya.... combo box...
saya punya table DIVISI
KODEDIV NMDIVISI
11 RKT
12 JUM
13 INCO
14 LAB
99 OTHER
dst...
table JASA
KDJASA NMJASA KODEDIV
111 Inspeksi Pipa 11
112 Inspeksi Boiler 11
113 Inspeksi Kapal 11
121 Pest Control 12
122 Fumigasi 12
123 Rodent Control 12
131 Audit Paper 13
132 Audit Pallet 13
141 Analisa Kapur 14
142 Analisa Air 14
143 Analisa Tanah 14
991 Jasa Lain 99
dst...
Yang saya inginkan ketika combo1 saya pilih misalnya nmdivisi "RKT" maka
otomatis
akan tampil pd combo2 nm jasanya......
mohon bantuannya...
tx
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
------------------------------------------------------------------------------
Yahoo! Groups Links
a.. To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
b.. To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
c.. Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-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/
