تقييم الموضوع :
  • 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
اخي الكريم
حسب مارايت من المشاركات توفر لديك (لنقول) الحد الادنى من المطلوب بقي ان تستخدم الحيلة يعني لديك المصفوفات والكائنات استخدمها مثلا تسمي متغير بمعنى بعد الحذف الاول ثم متغير اخر بمعنى ارجاع ماتم حذفه ...وهكذا.
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 6 5,912 04-10-17, 10:08 PM
آخر رد: sofiane0552
  تضمين قاعدة بيانات MySQL مع الرنامج Jounior_P 8 268 19-07-17, 01:58 PM
آخر رد: Jounior_P
  كيفية عرض السطر اللي واقفين عليه في الداتا جريد فيو في التكست بوكس khaled12345 19 525 16-07-17, 07:23 PM
آخر رد: حريف برمجة
Question [سؤال] كيف يتم تشغيل قاعدة بيانات SQL SERVER دون تنصيب MS SQL SERVER alimoi79 1 201 16-07-17, 02:56 AM
آخر رد: ابو ليلى
  [كود] المساعدة في كود بحث برقم التسلسل اذا كان الرقم غير موجود داخل قاعدة بيانات تخرج رسالة وادي العوضي 3 181 14-07-17, 09:43 AM
آخر رد: وادي العوضي
  مشكله فى Load الخاص بفورم متصل بقواعد بيانات... للخبراء نبيل كونكت 0 82 08-07-17, 07:50 AM
آخر رد: نبيل كونكت
  حفظ بيانات اكثر من سجل من خلال DataGrideView abuyazan 4 944 02-06-17, 11:28 PM
آخر رد: الراشيدي
  مل نسخة احتياطية لقاعدة بيانات sql server djelloul 2 248 10-05-17, 12:49 PM
آخر رد: djelloul
  المساعدة في عمل استعلام قاعدة بيانات sqlserver djelloul 0 197 17-04-17, 07:13 PM
آخر رد: djelloul
  [C#.NET] طلب طريقة الاتصال بقاعدة بيانات firebase Riad dz 0 163 10-04-17, 09:56 PM
آخر رد: Riad dz

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


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