trims banyak
yang combo udah jalan tapi untuk filternya gimana?
For i = 0 To Combo1.ListCount - 1
If Combo1.List( i) = "sidorejolor" Then
rslurahsidor.filter = "KELURAHAN="+"sidorejo lor"""
set datagrid1.datasource=rslurahsidor
End If
Next i
apakah seperti itu
trims yang mau sharing pengetahuannya
Arief Wibowo <[EMAIL PROTECTED]> wrote:
Gini lho mas, List itu adalah array dari semua data dlm cbo.
Jadi yg bener kira2 gini:
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = "sidorejolor" Then
'Perintah2 lain
End If
Next i
--
PS: Semoga informasi ini dapat bermanfaat secara positif bagi kita
semua...
Kalau ada pertanyaan, silahkan hubungi saya ([EMAIL PROTECTED]) :-)
Akhir kata, mohon maaf bila ada kata-kata yang menyinggung hati.
Salam,
('ariefwt' of as-lab)
--- In [email protected], setiyawan emond <[EMAIL PROTECTED]>
wrote:
>
> haloo semua,
> salam kenal,
> aku mau tanya dikit nich, tentang filter yang di hubungkan sama
combo box.
> data di ambil dari adodc
>
> Private Sub form_activate( )
> if combo1.list = sidorejolor then
> rslurahsidor. Filter = "KELURAHAN=" + "SIDOREJO LOR"""
> set grddatagrid. datasource = rslurahsidor
> end if
> End Sub
>
> tapi hasilnya malah ga bisa, error pada combo1.list
> pada coding filter juga salah.
> tolong donk. penting nich
> mohon pencerahannya
> thanks..
>
>
>
> ________________________________________________________
> Lelah menerima spam? Surat Yahoo! mempunyai perlindungan terbaik
terhadap spam.
> http://id.mail.yahoo.com/
>
---------------------------------
Kunjungi halaman depan Yahoo! Indonesia yang baru!
