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

نصيحة للتخفيف على قاعدة بيانات المنتدى  لا تخزن الصور الخاصة بالسؤال في قاعدة بيانات المنتدى

الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up [سؤال] قاعدة بيانات اكسس منه 1 253 31-05-20, 11:27 PM
آخر رد: kiki
Smile كيفية تسجيل عملية البيع الأجل solo87 0 145 28-05-20, 10:40 PM
آخر رد: solo87
  قواعد بيانات منه 1 171 28-05-20, 02:02 PM
آخر رد: kiki
  [SQL] انا احتاج للنسخ1 table في قاعدة بيانات 1 الى table1 في قاعدة بيانات2 في essamprog2020 1 286 19-04-20, 02:13 AM
آخر رد: asemshahen5
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 9 3,028 06-04-20, 12:12 AM
آخر رد: wadyreem
  اسناد عامود في قاعدة بيانات اكسيس الى عامود من نوع كومبوبوكس بالداتا جريد فيو بالفيجو Ghassanfff 0 290 30-03-20, 09:33 PM
آخر رد: Ghassanfff
  [نقاش] مشاركة قاعدة بيانات SQL على شبكه داخليه morkoskhalaf 2 397 18-03-20, 11:28 PM
آخر رد: morkoskhalaf
  [سؤال] مساعدة في تحليل قاعدة بيانات مشتريات ومبيعات maw2321 0 382 11-03-20, 03:00 AM
آخر رد: maw2321
  اريد ترقية قاعدة بيانات برنامجي فإلى ايهم تقترحوا علي alfaiz678 4 423 05-03-20, 05:58 PM
آخر رد: alfaiz678
  هل يمكن تعديل كلمة معينة داخل سجل alfaiz678 4 332 22-02-20, 11:38 AM
آخر رد: alsalamoni

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


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