+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مشكلة في الكود في كيفية البحث داخل الداتا جريد من خلال صندوق نصي ؟ (/showthread.php?tid=26335)
مشكلة في الكود في كيفية البحث داخل الداتا جريد من خلال صندوق نصي ؟ - dametucorazon - 02-09-18
السلام عليكم ورحمه الله وبركاته
استعمل هذا الكود للبحث عن رقم داخل العمود الاول من الداتا جريد من خلال تيكست بوكس اذا وجده لا ينقله في تشيكد ليست
وولكن اذا لم يجد هذا الرقم ليتم اضافته الى تشيكد ليست
حيث ان العمود به الكثير من انواع الهواتف وانا استعمل تايمر للبحث والتكرار
الكود الذي استعمله
PHP كود :
For Each dr As DataGridViewRow In Me.DataGridView2.Rows
If dr.Cells(0).Value.ToString.Contains(SearchTextBox.Text) Then
TextBox4.Text = "phone no is ready"
MoveNext.Enabled = True
Else
TextBox4.Text = "Not yet "
CheckedListBox2.Items.Add(SearchTextBox.Text)
MoveNext.Enabled = True
End If
Next
RE: مشكلة في الكود في كيفية البحث داخل الداتا جريد من خلال صندوق نصي ؟ - elgokr - 02-09-18
وعليكم السلام ورحمة الله وبركاته
استبدل الكود الخاص بك بالكود التالى
كود :
Dim search As Boolean = False
For Each row As DataGridViewRow In DataGridView2.Rows
If row.Cells(0).Value = SearchTextBox.Text Then
TextBox4.Text = "phone no is ready"
search = True
MoveNext.Enabled = True
Exit For
Else
search = False
End If
Next
If Not search Then
TextBox4.Text = "Not yet "
CheckedListBox2.Items.Add(SearchTextBox.Text)
MoveNext.Enabled = True
End Ifتحياتى لك
وتمنياتى لك التوفيق
RE: مشكلة في الكود في كيفية البحث داخل الداتا جريد من خلال صندوق نصي ؟ - dametucorazon - 23-09-18
جزيت خيرا كثيرا اخي الفاضل
RE: مشكلة في الكود في كيفية البحث داخل الداتا جريد من خلال صندوق نصي ؟ - elgokr - 23-09-18
(23-09-18, 03:21 AM)dametucorazon كتب : جزيت خيرا كثيرا اخي الفاضل
لنا جميعاً ان شاء الله
تحياتى لك
وتمنياتى لك التوفيق