- Katılım
- 20 Aralık 2006
- Mesajlar
- 939
- Excel Vers. ve Dili
- türkçe
Merhaba Arkadaşlar
Vb6 Hazırladığım Bir Projede
Bu Kodları Kullanarak datagridde ürünleri filtreliyorum
iki koşulu ayrı ayrı alıyor bu şekilde
istediğim iki koşulu bir alması
yani text1 ve text2 için iki koşulda aranan listeyi bulması
şimdiden çok teşekkür
Vb6 Hazırladığım Bir Projede
Kod:
Private Sub Text1_Change()
On Error GoTo 11
Adodc1.Recordset.Filter = "model_no like '" & Text1.Text & "%' "
Set DataGrid2.DataSource = Adodc1
Label4 = Adodc1.Recordset.Fields(3)
Label5 = Adodc1.Recordset.Fields(4)
Label6 = Adodc1.Recordset.Fields(5)
Label7 = Adodc1.Recordset.Fields(6)
11
End Sub
Private Sub Text2_Change()
On Error GoTo 10
Adodc1.Recordset.Filter = "Alt_barkod like '" & Text2.Text & "%' "
Set DataGrid2.DataSource = Adodc1
Label4 = Adodc1.Recordset.Fields(3)
Label5 = Adodc1.Recordset.Fields(4)
Label6 = Adodc1.Recordset.Fields(5)
Label7 = Adodc1.Recordset.Fields(6)
10
End Sub
iki koşulu ayrı ayrı alıyor bu şekilde
istediğim iki koşulu bir alması
yani text1 ve text2 için iki koşulda aranan listeyi bulması
şimdiden çok teşekkür