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

عند الكتابة في الجريد

كيف اعمل تراجع عن اخر عملية ادخال بيانات داخل الداتاجريد

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

طريقة عمل تراجع عن التعديلات التي تمت في خلايا DataGridView باستخدام المكدس Stack (ويمكن تعديلها ليتم تطبيقها على الأدوات الأخرى)
يحتوي المثال عل رز Button2 وفيه مجرد عرض محتوى المكدس الخاص بالتعديلات التي تمت (قد يفيد)
كود :
Public Class Form1

#Region " DataGridViewUndoStack "
    Dim DataGridViewUndoStack As New Stack(Of undo)
    Structure undo
        Dim rows As Integer ' عدد الأسطر
        Dim row As Integer  ' رقم السطر
        Dim col As Integer  ' رقم العمود
        Dim val As Object   ' قيمة الخلية
    End Structure
    Private Sub DataGridView1_CellBeginEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles DataGridView1.CellBeginEdit
        Dim o As New undo
        o.rows = DataGridView1.Rows.Count
        o.row = DataGridView1.CurrentCell.RowIndex
        o.col = DataGridView1.CurrentCell.ColumnIndex
        o.val = DataGridView1.CurrentCell.Value
        DataGridViewUndoStack.Push(o)
    End Sub
    Private Sub DataGridViewDoUndo() ' التراجع
        If DataGridViewUndoStack.Count > 0 Then
            Dim o As New undo
            o = DataGridViewUndoStack.Pop
            Me.DataGridView1.Rows(o.row).Cells(o.col).Value = o.val
            Me.DataGridView1.CurrentCell = DataGridView1.Rows(o.row).Cells(o.col)
            Do While DataGridView1.Rows.Count > o.rows
                DataGridView1.Rows.RemoveAt(If(DataGridView1.AllowUserToAddRows, DataGridView1.Rows.Count - 2, DataGridView1.Rows.Count - 1))
            Loop
        End If
    End Sub
#End Region

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DataGridViewDoUndo()
    End Sub

    ' مجرد إضافة لعرض محتوى المكدس الخاص بالتعديلات التي تمت، قد يفيد
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim undoStacks As String = ""
        For i = 0 To DataGridViewUndoStack.Count - 1
            Dim o As New undo
            o = DataGridViewUndoStack.ElementAt(i)
            undoStacks &= i.ToString("000") & ": {" & o.row & ", " & o.col & "} " & o.val.ToString & vbNewLine
            If i = 10 Then
                undoStacks &= "يوجد أكثر" & vbNewLine & DataGridViewUndoStack.Count.ToString("000")
                Exit For
            End If
        Next
        MessageBox.Show(If(undoStacks = "", "لا توجد تعديلات", undoStacks), "UndoStack")
    End Sub

End Class
الرد
تم الشكر بواسطة: سعود , king2512010
#3
الاخ الكريم vbnet
انت مرجع كبير وموسوعة ضخمة.
الرد
تم الشكر بواسطة:
#4
صراحة خبرة وعلم غير عاديين شكرا

فكرت كثيرا هل ممكن عمل redo
ما تم عمله خو undo فهل من redo
الرد
تم الشكر بواسطة:
#5
اخي الكريم atefkhalf2004
قبل اي اجراء الا تحب اخذ نسخة من الجدول لجدول اخر؟
اظن هذا الذي تريده.
الرد
تم الشكر بواسطة:
#6
لا لا اقصد ذلك
ما اقصده هو
انااكتب داخل الجريد

عملت تراجع لاربعة عمليات

واريد ان ارجع الي ما فعلته مرة اخري

اي تراجع ثم اعادة
الرد
تم الشكر بواسطة:
#7
السلام عليكم ورحمة الله وبركاته

مرفق صورة مشروع بالفيجوال بيزك 6

المشروع عبارة عن بحث عن التاريخ قبل وبعد 15 يوم

المطلوب بعد البحث كود يظهر كافة المدخلات تانى فى الشبكة

وشكرا


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#8
(17-05-14, 05:29 PM)atefkhalf2004 كتب : لا لا اقصد ذلك
ما اقصده هو
انااكتب داخل الجريد

عملت تراجع لاربعة عمليات

واريد ان ارجع الي ما فعلته مرة اخري

اي تراجع ثم اعادة

استخدم لك حيلة واذا اعجبتك طبقها.
الرد
تم الشكر بواسطة:
#9
اين الحيلة
ا سعود
الرد
تم الشكر بواسطة:
#10
اخي الكريم
حسب مارايت من المشاركات توفر لديك (لنقول) الحد الادنى من المطلوب بقي ان تستخدم الحيلة يعني لديك المصفوفات والكائنات استخدمها مثلا تسمي متغير بمعنى بعد الحذف الاول ثم متغير اخر بمعنى ارجاع ماتم حذفه ...وهكذا.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  منع التكرار في اضافة بيانات لقاعدة بيانات أكسس vb.net ahmedshafea 3 5,825 01-07-19, 12:28 PM
آخر رد: essamprog
  كيفية تحويل الوحدات في نموذج فاتورة البيع من كرتون لحبة وخلافه wessam.demerdash 3 244 25-06-19, 10:20 PM
آخر رد: atefkhalf2004
  الربط بين جهازين لقاعدة بيانات واحده makky 11 529 23-06-19, 12:07 AM
آخر رد: حريف برمجة
Information [سؤال] انشاء قاعدة بيانات access واضافة جدول وحقول بكود vb.net fefooo29 4 3,671 10-06-19, 09:31 PM
آخر رد: sherf
  مساعدة في تصميم قاعدة بيانات ادارة ساعات عمل الموظفين Rabeea Qbaha 6 286 06-06-19, 12:23 AM
آخر رد: elgokr
  استدعاء بيانات من اكثر من جدول المتألق9 1 251 04-06-19, 10:29 PM
آخر رد: احمد نعمة السلامي
  [VB.NET] رسالة خطأ عند الحذف أو تعديل بيانات جديدة #concurrency violation# sniperjawadino 11 657 28-05-19, 10:50 PM
آخر رد: sniperjawadino
  [VB.NET] قاعدة بيانات postgress tarek 2 320 06-04-19, 09:07 PM
آخر رد: elgokr
  الاتصال بقاعدة بيانات mdf موجودة على القرص نور الهدى الهدى 10 734 18-03-19, 08:55 PM
آخر رد: 5000
  طريقة ادخال اعداد تحتوي على فاصلة في قاعدة البيانات segma 21 851 12-03-19, 10:23 PM
آخر رد: segma

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


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