ايها الأحبة الكرام هذا الكود
يقوم بعملية الحذف بصورة جيدة وليس هناك اي مشكلة
ولكن بعد الحذف يذهب المؤشر إلى أعلى ..!!!
فكيف اجعل المؤشر ينتقل الى السجل الذي يليه اي بقى مكانه
مع التنبيه جربت المشاركات بخصوص الموضوع لم تضبط معاي
هذا هو الكود ..
'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
يقوم بعملية الحذف بصورة جيدة وليس هناك اي مشكلة
ولكن بعد الحذف يذهب المؤشر إلى أعلى ..!!!
فكيف اجعل المؤشر ينتقل الى السجل الذي يليه اي بقى مكانه
مع التنبيه جربت المشاركات بخصوص الموضوع لم تضبط معاي
هذا هو الكود ..
'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