18-07-19, 06:58 PM
كود :
If Not Combo1.Text = "الكل" Then rs.Filter = "xnat LIKE '" & Combo1.Text & "'and xstat='" & Combo2.Text & "'and xsex='" & Combo3.Text & "'"
Set DataGrid1.DataSource = rs
age = xage filed
between text121 and text 131

