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

مع التنبيه جربت المشاركات بخصوص الموضوع لم تضبط معاي

هذا هو الكود ..

    'Try

       '    'لتأكيد عملية الحذف
       '    If MsgBox("هل تريد تأكيد عملية الحذف", MsgBoxStyle.YesNo, "تأكيد الحذف") = DialogResult.Yes Then

       '        sqlstr = "Delete From TB_Notices Where ID_Format = @ID_Format"
       '        cmd = New OleDbCommand(sqlstr, conn)
       '        cmd.Parameters.Add("@ID_Format", OleDbType.VarChar).Value = DGVAlert.CurrentRow.Cells(1).Value
       '        conn.Open()
       '        cmd.ExecuteNonQuery()

       '        MsgBox("تمت عملية الحذف بنجاح", MsgBoxStyle.Information, "الحذف")

       '        'سب تحميل البيانات
       '        FillDGVAlert()


       '    End If

       'Catch ex As Exception
       '    MsgBox("لا توجد  تنبيهات معلقة", MsgBoxStyle.Information, "حذف تنبيه")
       'Finally
       '    conn.Close()
       'End Try
الرد
تم الشكر بواسطة:
#2
السلام عليكم

قم بالاحتفاظ برقم المؤشر قبل ايتمام العملية كالكود التالي
كود :
Dim CurrentRowIndex As Integer = DataGridView1.CurrentRow.Index

وبعد اتمام العملية
وتعبئة الجدول بالبيانات
قم بتحريك المؤشر الى الرقم المحتفظ به سابقا كالكود التالي
كود :
DataGridView1.Rows(CurrentRowIndex).Selected = True
DataGridView1.FirstDisplayedScrollingRowIndex = CurrentRowIndex
الرد
تم الشكر بواسطة: bidaya
#3
جربت كما تفضلت لكن لازال المؤشر يذهب لأعلى ..
وهذا الكود بعد التعديل ...

Try
     Dim CurrentRowIndex As Integer = DGV_Users.CurrentRow.Index
      '    'لتأكيد عملية الحذف
      '    If MsgBox("هل تريد تأكيد عملية الحذف", MsgBoxStyle.YesNo, "تأكيد الحذف") = DialogResult.Yes Then

      '        sqlstr = "Delete From TB_Notices Where ID_Format = @ID_Format"
      '        cmd = New OleDbCommand(sqlstr, conn)
      '        cmd.Parameters.Add("@ID_Format", OleDbType.VarChar).Value = DGVAlert.CurrentRow.Cells(1).Value
      '        conn.Open()
      '        cmd.ExecuteNonQuery()

      '        MsgBox("تمت عملية الحذف بنجاح", MsgBoxStyle.Information, "الحذف")

      '        'سب تحميل البيانات
      '        FillDGVAlert()
     
      DGV_Users.Rows(CurrentRowIndex).Selected = True
      DGV_Users.FirstDisplayedScrollingRowIndex = CurrentRowIndex

      '    End If

      'Catch ex As Exception
      '    MsgBox("لا توجد  تنبيهات معلقة", MsgBoxStyle.Information, "حذف تنبيه")
      'Finally
      '    conn.Close()
      'End Try
الرد
تم الشكر بواسطة:
#4
اتضح أنك تستخدم جدولين DGVAlert وDGV_Users

وأنت احتفظت برقم المؤشر الخاص ب DGV_Users
ولكنك في السطر DGVAlert.CurrentRow.Cells(1).Value أنت تعاملت بالحذف مع DGVAlert وليس DGV_Users

ارجو أن يكون الخطأ اتضح لك

تفضل التعديل
كود :
Try
   Dim CurrentRowIndex As Integer = DGVAlert.CurrentRow.Index
   'لتأكيد عملية الحذف
   If MsgBox("هل تريد تأكيد عملية الحذف", MsgBoxStyle.YesNo, "تأكيد الحذف") = DialogResult.Yes Then

       sqlstr = "Delete From TB_Notices Where ID_Format = @ID_Format"
       cmd = New OleDbCommand(sqlstr, conn)
       cmd.Parameters.Add("@ID_Format", OleDbType.VarChar).Value = DGVAlert.CurrentRow.Cells(1).Value
       conn.Open()
       cmd.ExecuteNonQuery()

       MsgBox("تمت عملية الحذف بنجاح", MsgBoxStyle.Information, "الحذف")

       'سب تحميل البيانات
       FillDGVAlert()

       DGVAlert.Rows(CurrentRowIndex).Selected = True
       DGVAlert.FirstDisplayedScrollingRowIndex = CurrentRowIndex

   End If

Catch ex As Exception
   MsgBox("لا توجد  تنبيهات معلقة", MsgBoxStyle.Information, "حذف تنبيه")
Finally
   conn.Close()
End Try
الرد
تم الشكر بواسطة:
#5
اخي مساعدة شكرا لتجاوبك ولكن لا زال المؤشر يذهب للاعلى
لهذا عملت مشروع صغير لتنظر فيه

وشكرا لك ..


الملفات المرفقة
.rar   xxxx.rar (الحجم : 115.54 ك ب / التحميلات : 22)
الرد
تم الشكر بواسطة:
#6
بعد تعبيئة قاعدة البيانات بأسماء ..
وأعدت التجربة عمل الكود بأحسم مايرام ..
شكرا لك أخي مساعدة الذي لا تتردد بأي مساعدة ..
شكرا لك كثيرا ..
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خطأ في كود الحذف من جدول البيانات داخل الداتا جريد فيو Mohamed Samy21 0 60 08-04-18, 05:41 PM
آخر رد: Mohamed Samy21
  موقع لتعلم لغة anes 2 63 29-03-18, 01:28 AM
آخر رد: anes
  طريقة عمل اشعارات مشابها لفكرة موقع تويتر Marwan9990 0 83 24-03-18, 12:40 PM
آخر رد: Marwan9990
  اضافة اسم في رسالة الحذف العيدروس 2 51 27-02-18, 07:26 PM
آخر رد: العيدروس
  الحذف من الجدول الفارغ من البيانات عبد العزيز البسكري 17 77 07-02-18, 01:04 AM
آخر رد: سعود الشامان
  [VB.NET] الحذف المتعدد من قاعدة البيانات محمد اسماعيل 6 187 15-01-18, 08:02 AM
آخر رد: awidan76
  [VB.NET] برنامجي يتوقف علي كود الحذف رجاء من الخبراء محمد اسماعيل 3 124 06-01-18, 09:57 PM
آخر رد: محمد اسماعيل
  قراءة البيانات من موقع الكتروني Rabeea Qbaha 3 152 03-01-18, 10:51 PM
آخر رد: طالب برمجة
  [ تمّ الحل ] : إشكالية حول الحفظ و الحذف بقاعدة البيانات عبد العزيز البسكري 10 419 02-01-18, 10:36 PM
آخر رد: عبد العزيز البسكري
  طريقة عرض جزء من موقع في WebBroswer؟؟ The Light Fire 1 99 27-12-17, 07:23 PM
آخر رد: abiza

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


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