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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام من عدة جداول لقاعدة بيانات اكسس Adel27213 1 702 07-11-23, 08:27 AM
آخر رد: justforit
  [SQL] استفسار عن طريقة تحزم قواعد بيانات MSSQL مع البرنامج VB.NET2019 salemq 2 530 18-05-23, 03:02 AM
آخر رد: سعود
  ما معني بيانات تقع بين الرمز[] في حقل في داتا بيس bassant 3 672 03-04-23, 11:53 PM
آخر رد: sanyor77
  [نقاش] مشاركة قاعدة بيانات SQL على شبكه داخليه morkoskhalaf 3 3,010 06-01-23, 03:20 AM
آخر رد: عبدالكريم برشدان
  قاعدة بيانات xml djelloul 3 2,799 07-11-22, 10:27 PM
آخر رد: Am7
  [عنوان معدل]حفظ بيانات listbox fhad24 36 12,241 08-10-22, 06:55 PM
آخر رد: رضوان الجماعي
  [سؤال] كيفية تسنسيق الارقام ف خلية السيكوال adelsbeed 0 879 23-04-22, 05:49 AM
آخر رد: adelsbeed
  مشكلة ظهور بياانات حقلين في قاعدة بيانات على شكل علامة استفهام bassant 5 1,632 17-10-21, 02:07 PM
آخر رد: abubasilIraq
  كيف افتح قاعة بيانات اكسس بسام محمدغانم 1 1,404 04-10-21, 02:52 AM
آخر رد: اسلام الكبابى
  تحويل multiline text الى single line في عمود في قاعدة بيانات sql server bassant 0 958 07-09-21, 04:36 PM
آخر رد: bassant

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


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