تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية عمل تراجع عن اخر عملية ادخال بيانات داخل الداتاجريد
#11
يا باشا
عندما اضع سؤال اذن لا اعرف الاجابة
برجاء الاجابة
الرد
تم الشكر بواسطة:
#12
(22-05-14, 05:10 PM)atefkhalf2004 كتب : يا باشا
عندما اضع سؤال اذن لا اعرف الاجابة
برجاء الاجابة

طيب اسف على الازعاج ....Huh
الرد
تم الشكر بواسطة:
#13
^هههههههه

لكن ماالمطلوب الان ؟؟
الرد
تم الشكر بواسطة:
#14
كيف عمل زر redo
الرد
تم الشكر بواسطة:
#15
كملت على مثال الاخ vb.net واضفت 2 من stack واحد لل undo والثاني redo:-

جرب الان وشوف :-

PHP كود :
#Region " DataGridViewStacks"
Private dataGridViewRedoStack As New Stack(Of Info)()
Private 
dataGridViewUndoStack As New Stack(Of Info)()
Public 
Structure Info
    
' عدد الأسطر
    Public rows As Integer
    ' 
رقم السطر
    
Public row As Integer
    
' رقم العمود
    Public col As Integer
    ' 
قيمة الخلية
    
Public val As Object
End Structure



Private Sub dataGridView1_CellBeginEdit(sender As ObjectAs DataGridViewCellCancelEventArgs
Handles dataGridView1.CellBeginEdit
    Dim o 
As New Info()
    
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 newInfo 
As New Info()
        
newInfo.col dataGridViewUndoStack.First().col
        newInfo
.row dataGridViewUndoStack.First().row
        newInfo
.rows dataGridViewUndoStack.First().rows
        newInfo
.val dataGridView1.Rows(newInfo.row).Cells(newInfo.col).Value
        dataGridViewRedoStack
.Push(newInfo)

        
Dim o As New Info()
        
dataGridViewUndoStack.Pop()
        
Me.dataGridView1.Rows(o.row).Cells(o.col).Value o.val
        Me
.dataGridView1.CurrentCell dataGridView1.Rows(o.row).Cells(o.col)
        While 
dataGridView1.Rows.Count o.rows
            dataGridView1
.Rows.RemoveAt_
If(dataGridView1.AllowUserToAddRowsdataGridView1.Rows.Count 2dataGridView1.Rows.Count 1))
        
End While
    
End If
End Sub

Private Sub DataGridViewDoRedo()
    If 
dataGridViewRedoStack.Count 0 Then
        Dim newInfo 
As New Info()
        
newInfo.col dataGridViewRedoStack.First().col
        newInfo
.row dataGridViewRedoStack.First().row
        newInfo
.rows dataGridViewRedoStack.First().rows
        newInfo
.val ""
        
dataGridViewUndoStack.Push(newInfo)

        
Dim o As New Info()
        
dataGridViewRedoStack.Pop()

        While 
dataGridView1.Rows.Count o.rows
            dataGridView1
.NotifyCurrentCellDirty(True)
            
dataGridView1.Rows.Insert(dataGridView1.Rows.Count 11)
        
End While

        
Me.dataGridView1.Rows(o.row).Cells(o.col).Value o.val
        Me
.dataGridView1.CurrentCell dataGridView1.Rows(o.row).Cells(o.col)
    
End If
End Sub
#End Region

Private Sub button1_Click(sender As ObjectAs EventArgsHandles button1.Click
    DataGridViewDoUndo
()
End Sub

Private Sub button2_Click(sender As ObjectAs EventArgsHandles button2.Click
    DataGridViewDoRedo
()
End Sub 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  نسخ بيانات حقل لحقل اخر في نفس الجدول bassant 4 190 09-11-19, 12:51 AM
آخر رد: baha
  قاعدتين بيانات من نوع اكسس في نفس البرنامج الوايلي 0 119 26-10-19, 09:26 AM
آخر رد: الوايلي
  سؤال : طريقة ربط الفيجوال بيسك بقاعدة بيانات mysql عن طريق صفحة php وسيطة alfaiz678 5 359 30-09-19, 11:53 AM
آخر رد: alfaiz678
  منع التكرار في اضافة بيانات لقاعدة بيانات أكسس vb.net ahmedshafea 3 6,136 01-07-19, 12:28 PM
آخر رد: essamprog
  كيفية تحويل الوحدات في نموذج فاتورة البيع من كرتون لحبة وخلافه wessam.demerdash 3 379 25-06-19, 10:20 PM
آخر رد: atefkhalf2004
  الربط بين جهازين لقاعدة بيانات واحده makky 11 781 23-06-19, 12:07 AM
آخر رد: حريف برمجة
Information [سؤال] انشاء قاعدة بيانات access واضافة جدول وحقول بكود vb.net fefooo29 4 3,930 10-06-19, 09:31 PM
آخر رد: sherf
  مساعدة في تصميم قاعدة بيانات ادارة ساعات عمل الموظفين Rabeea Qbaha 6 420 06-06-19, 12:23 AM
آخر رد: elgokr
  استدعاء بيانات من اكثر من جدول المتألق9 1 357 04-06-19, 10:29 PM
آخر رد: احمد نعمة السلامي
  [VB.NET] رسالة خطأ عند الحذف أو تعديل بيانات جديدة #concurrency violation# sniperjawadino 11 788 28-05-19, 10:50 PM
آخر رد: sniperjawadino

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


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