+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استخدمت هذه الطريقة للبحث ضمن datagrideview وعندي مشكلة (/showthread.php?tid=23243)
استخدمت هذه الطريقة للبحث ضمن datagrideview وعندي مشكلة - nooralcown - 08-01-18
استعملت هذا الكود للبحث عن بيانات معينة ضمن داتا قرايد فيو
Dim srch As String
Dim irowindex As Integer
' Dim strl As Integer
srch = TextBox3.Text
DGV_acounts.ClearSelection()
For i As Integer = 0 To DGV_acounts.Rows.Count - 1
If DGV_acounts.Rows(i).Cells(2).Value IsNot Nothing Then
If DGV_acounts.Rows(i).Cells(0).Value.ToString.ToUpper.StartsWith(srch.ToUpper) Then
DGV_acounts.Rows(i).Selected = True
DGV_acounts.RowsDefaultCellStyle.SelectionBackColor = Color.Blue
irowindex = DGV_acounts.SelectedCells.Item(0).Value
'MessageBox.Show(irowindex)
Exit For
End If
End If
Next
المشكلة كالتالي
الكود يتم تنفيذه ويقف على السطر المطلوب
لكن لو كان حجم البيانات كبير ولا يظهر ضمن الاداة الا بالنزول بالسهم لاسفل , اذا كان الصف المطلوب غير ظاهر , فانه لن يظهر ضمن الشاشة
اريد البرنامج بعد تنفيذ الكود اظهار هذا السطر وليس تظليله وهو غير مرئي
مش عارف اذا وصلت المعلومة ولا لا
RE: استخدمت هذه الطريقة للبحق ضمن datagrideview وعندي مشكلة - طالب برمجة - 08-01-18
لجعل سطر ضمن المجال المرئي استخدم الخاصية FirstDisplayedScrollingRowIndex
PHP كود :
DGV_acounts.FirstDisplayedScrollingRowIndex=i
RE: استخدمت هذه الطريقة للبحث ضمن datagrideview وعندي مشكلة - nooralcown - 08-01-18
اشكرك جزيل الشكر تمام
عندي سؤال هل يوجد خيار البحث عن التالي بنفس الطريقة
RE: استخدمت هذه الطريقة للبحث ضمن datagrideview وعندي مشكلة - عبدالله الدوسري - 09-01-18
أولاً :
أخرج هذا التعريف من العملية وضعة في مكان عام
Dim irowindex As Integer
وعند بداية العملية
في البداية وقبل الدخول إلى الحلقة For اسأل عن irowindex
إذا كانت أكبر من (فقط) عدد عناصر الداتا قريد فيو
إذا صحيح إذن اجعل irowindex = 0
PHP كود :
If irowindex > (DGV_acounts.Rows.Count - 1) Then
irowindex = 0
End If
ثانياً :
For i As Integer = 0 To DGV_acounts.Rows.Count - 1
استبدلها بـ
For i As Integer = irowindex To DGV_acounts.Rows.Count - 1
ثالثاً :
irowindex = DGV_acounts.SelectedCells.Item(0).Value
إستبدلها بـ
irowindex = i
في النهاية سيصبح رز البحث هو نفسة زر ابحث عن التالي
لأن الحلقة ستبداء من آخر irowindex وليس من الصفر
سلام...
RE: استخدمت هذه الطريقة للبحث ضمن datagrideview وعندي مشكلة - nooralcown - 16-01-18
حاولت وما زبطش يا ريت مثال من فضلك
RE: استخدمت هذه الطريقة للبحث ضمن datagrideview وعندي مشكلة - عبدالله الدوسري - 16-01-18
ارفق مثال أو المشروع أفضل للتعديل