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/