+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [vb6.0] كود بحث في الجريد فيو بنص متطابق (/showthread.php?tid=42395)
كود بحث في الجريد فيو بنص متطابق - abu7shihab - 06-09-22
السلام عليكم رحمة الله وبركاته ،،،
اخوانا الاعزاء اتمنى تساعدوني
اريد كود بحيث يعمل فلترة للجريد فيو عن اضافة نص البحث في textbox والبحث عن طريق الضغط على button
طبعا عملية الاتصال عن طريق DatabaseDataSet
مثال اذا عندي حقل يحتوي على :
qutation-01
qutation-02
qutation-012
qutation-022
qutation-0111
اريد اذا عملت الفلترة على qutation-01 يظهر فقط هذا العنصر مع انه يوجد نفس العنصر في بعض القيم مثل qutation-012 , qutation-0111
ارجو ان يكون سؤالي واضح
RE: كود بحث في الجريد فيو بنص متطابق - رضوان الجماعي - 07-09-22
بس هذا الطريقه رح تتعبك بالبحث لانه مارح يطلع معك شي لا متاطابق فقط على العموم هذا الكود
اعمل تكست بكس 2 بوتن وبداخل البوتن الاول حط هذا الكود وغير ما يلزم على حسب بياناتك
If Trim$(TextBox12.Text) = "" Then
MsgBox("اكتب الاسم المراد البحث عنه في المكان المخصص له ")
Else
If RadioButton2.Checked = True Then
DataGridView1.DataSource = Me._paragram_lapDataSet.hagz.Where(Function(x) x.Address.Contains(TextBox12.Text)).ToList
Exit Sub
ElseIf RadioButton1.Checked = True Then
DataGridView1.DataSource = Me._paragram_lapDataSet.hagz.Where(Function(x) x.Name_Pationt.Contains(TextBox12.Text)).ToList
Exit Sub
End If
End If
Exit Sub
وفي البوتن الاخر ظيف الكود التالي وغير ما يلزم
Me.DataGridView1.DataSource = Me._paragram_lapDataSet.hagz
Me.TextBox12.Clear()