25-10-13, 09:37 PM
طبعاً للبحث .. فيه طرق شي بفلتر وشي لا
أنا بأعطيك بدون فلتر سريع . أضغط دبل كليك على بوتون البحث وانقل الكود كما هو
إذا كان بودك إعطاء رسالة للمستخدم عند الضغط على زر البحث ولاتوجد قيمة أضف الكود التالي في البوتون
إذا كان تريد البحث بالنص وليس رقم
تحياتي
أنا بأعطيك بدون فلتر سريع . أضغط دبل كليك على بوتون البحث وانقل الكود كما هو
كود :
BindingSource1.Position = BindingSource1.Find("iD", TextBox4.Text)
إذا كان بودك إعطاء رسالة للمستخدم عند الضغط على زر البحث ولاتوجد قيمة أضف الكود التالي في البوتون
كود :
If TextBox4.Text.Trim = "" Then
MsgBox("الرجاء ادخال قيمة للبحث عنها", 16 + 524288, "البحث عن قيمة")
TextBox4.Text = ""
TextBox4.Focus()
Exit Sub
End If
BindingSource1.Position = BindingSource1.Find("iD", TextBox4.Text)
إذا كان تريد البحث بالنص وليس رقم
كود :
BindingSource1.Filter = "Name like '%" & TextBox4.Text & "%'"
تحياتي