تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التنقل بين صفوف داتا قرايد فيو
#1
اريدكيفية التنقل بين السجلات اعلى واسفل والاول والاخير مع داتا قرايد فيو بالكود  
وكذلك تبديل  مواقع الاسطر بمعني نقل السطر للاعلى او للاسفل  
الموضوع فقط على البيانات المعروضه داخل الاداة ولا علاقة له بالجدول  


وشكرا للجميع
الرد
تم الشكر بواسطة: awidan76
#2
كما ذكرت: الموضوع فقط على البيانات المعروضه داخل الاداة ولا علاقة له بالجدول

التنقل بين السجلات اعلى واسفل والاول والاخير مع داتا قرايد فيو بالكود
PHP كود :
'الأول
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    DGVMoveSelection(Me.DataGridView1, 0)
End Sub
'
السابق
Private Sub Button2_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button2.Click
    DGVMoveSelection
(Me.DataGridView1Me.DataGridView1.CurrentRow.Index 1)
End Sub
'التالي
Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
    DGVMoveSelection(Me.DataGridView1, Me.DataGridView1.CurrentRow.Index + 1)
End Sub
'
الأخير
Private Sub Button4_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button4.Click
    DGVMoveSelection
(Me.DataGridView1Me.DataGridView1.Rows.Count 1)
End Sub
Sub DGVMoveSelection
(ByVal dgv As DataGridViewByVal rowindex As Integer)
 
   If rowindex 0 Then rowindex 0
    If rowindex 
> (dgv.Rows.Count 1Then rowindex = (dgv.Rows.Count 1)
 
   dgv.ClearSelection()
 
   dgv.CurrentCell dgv.Rows(rowindex).Cells(0)
 
   dgv.Rows(rowindex).Selected True
End Sub 


تبديل مواقع الاسطر
PHP كود :
Private Sub Button5_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button5.Click
    
'تبديل بين السطر الثاني والسطر السادس
    DGVRowsSwap(Me.DataGridView1, 1, 5)
End Sub
Sub DGVRowsSwap(ByVal dgv As DataGridView, ByVal row1index As Integer, ByVal row2index As Integer)
    Dim r1 As DataGridViewRow = dgv.Rows(row1index)
    Dim r2 As DataGridViewRow = dgv.Rows(row2index)
    dgv.Rows.Remove(r1)
    dgv.Rows.Insert(row2index, r1)
    dgv.Rows.Remove(r2)
    dgv.Rows.Insert(row1index, r2)
End Sub 
الرد
#3
هذة طريقة جميله 
إذا كنت تريد مثل هذة الأدوات
بدون أن تكتب سطر واحد
هذا كنترول اسمة bindingnavigator 

   

فيديو للشرح : (أرجوا مشاهدة الفيديو)
الفيديو يشرح ربط البرنامج بقاعدة بيانات , لكن المهم ستجد الأداة التي إسمها bindingnavigator 


الرد
تم الشكر بواسطة:
#4
اشكركم من كل قلبي

استعملت هذا الكود لتحريك الصفوف وهو من مساعدتكم لي ( نقل الصف الى اسفل )
Private Sub Button11_Click_7(sender As Object, e As EventArgs) Handles Button11.Click
'تبديل بين السطر الثاني والسطر السادس
DGVRowsSwap(Me.DataGridView1, DataGridView1.CurrentRow.Index, DataGridView1.CurrentRow.Index + 1)

End Sub
Sub DGVRowsSwap(ByVal dgv As DataGridView, ByVal row1index As Integer, ByVal row2index As Integer)
Dim r1 As DataGridViewRow = dgv.Rows(row1index)
Dim r2 As DataGridViewRow = dgv.Rows(row2index)
dgv.Rows.Remove(r1)
dgv.Rows.Insert(row2index, r1)
dgv.Rows.Remove(r2)
dgv.Rows.Insert(row1index, r2)
End Sub
المشكلة الان اريد ان اعمل الانتقال للاعلي
استعملت نفس الشي وكتبت الكود هذا
DGVRowsSwap(Me.DataGridView1, DataGridView1.CurrentRow.Index, DataGridView1.CurrentRow.Index - 1)

الكود يعمل لكن لا ينتقل التحديدالى الصف الجديد
الرد
تم الشكر بواسطة:
#5
جربت الكود وهو يعمل جيدا

ولن ينقل صف الى السطر المخصص للإضافة بيانات جديدة (الموجود في اسفل أسطر البيانات)

لن يعمل على داتاجريد مرتبط بالبيانات عن طريق DataSource
وأنت ذكرت في بداية موضوعه أن الداتاجريد لا علاقة له بالجدول، وقد فهمت من هذا أنه غير مرتبط
الرد
تم الشكر بواسطة:
#6
ما اقصدة اخي الفاضل ان تبديل الصفوف للاسفل شغال بينما للاعلى يعمل ولكن لا ينتقل المؤشر مع تبديل السطر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد اظهار الجمع الموجود في داتا قريد لكل شهر يظهر في label rochdi191 2 51 منذ 2 ساعة مضت
آخر رد: rochdi191
  عكس ترتيب الصفوف في داتا جريد atefkhalf2004 4 52 منذ 7 ساعة مضت
آخر رد: atefkhalf2004
Question [VB.NET] ازرار التنقل و الاضافة و الحفظ و الحذف و التعديل في entity framework باستخدام visual vb 2010 + sql server 2008 2 50 , 11:31 AM
آخر رد: vb 2010 + sql server 2008
  مساعدة في داتا جريد فيو cordava 1 70 22-10-20, 08:09 PM
آخر رد: Lathe1
  سؤال حول التنقل بالاسهم من لوحة المفاتيح Lathe1 2 125 08-10-20, 02:00 PM
آخر رد: Lathe1
  كيف يمكن تلوين عدد من صفوف ListBox ؟ عبد الله 15 3,625 08-10-20, 01:24 PM
آخر رد: MetoDas
  [VB.NET] محتاج كود عرض اكثر من جدول فى داتا جرد فيو واحدة عن طريق اختيار الجدول من كومبوكس mohammed1994 1 280 01-09-20, 04:56 PM
آخر رد: اسامه الهرماوي
  [VB.NET] داتا غريد فيو Hamza Elshare 1 212 01-09-20, 04:53 PM
آخر رد: اسامه الهرماوي
  الى خبراء الدوت نت (داتا جريد فيو) التنقل التلقائي في خلايا الداتا جريد ismaeel 0 279 10-08-20, 03:38 PM
آخر رد: ismaeel
  [VB.NET] داتا كريت فيو EMADSSS 3 464 02-07-20, 12:49 PM
آخر رد: EMADSSS

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم