تقييم الموضوع :
  • 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 
الرد
تم الشكر بواسطة:


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

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


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