[araxis]

محتاج قبل اما ادوس على علامة X(الخروج)من  البرنامج  ياخد اخر row فى الداتاجريد فيو يحطها فى  داتا جريد فيو تانية اوتوماتيك  بس ياخد اخر سطر بس انا مستخدم DATAADAPTER ,DATATABEL

[سعود]

الداتاجريد فيو الاخرى هل هي بنفس الفورم -1
2-هل هي مربوطة؟

[araxis]

بنفس الفورم اة
مربوطة ازاى؟؟؟

[سعود]

(28-08-16, 02:34 PM)araxis كتب : بنفس الفورم اة
مربوطة ازاى؟؟؟

يعني هل هي مربوطة بقاعدة بيانات؟
اكتب شوية تفاصيل لعل نساعدك بحل سريع.

[araxis]

ايوة مربوطة بقاعدة بيانات
باختصار انا عاوز قبل اما البرنامج يقفل ياخد اخر سطر بالكامل من داتا جريد فيو واحد لداتا جريد فيو 2
ولو فية سطر فى داتا جريد فيو 2 عن قفل البرنامج يععمل replace للسطر القديم بالجديد

[سعود]

طيب الامر سهل تقوم باضافة الصف الاخير من الداتاتيبل الاولى الى الداتاتيبل الاخرى.
اذا اردت مثال اكتب رد.

[araxis]

ادينى مثال اة

---

بس محتاجة اوتوماتيك يعنى اول اما اقفل البرنامج ييضيف اوتوماتيك ولو فية صف موجود قبل كدة يبدلة بالجديد

[أبو عمر]

هل المشكلة في عدم معرفة حدث الاغلاق؟
والا المشكلة في عدم القدر على اضافة صف من جريد لجريد ثاني؟
وهل الاضافة للجريد الثاني او الاستبدال راح يكون بس في الجريد والا يتخزن في جدول؟
حاول تجاوب على الاسئلة على شان ما يتعب اللي يحاول يجاوبك
ولو انت رافع مثال لطلبك كان زمانك لقيت الحل

[سعود]

المثال مرفق

---

طبعا النسخ من dt1 الى dt2
dt1=DataTable1
dt2=DataTable2
وفيه حالتين لـكل من dt1 و dt2 من حيث احتواءها على صفوف .....اطلع على المثال.
ولو حبيت الكلاس هذا هو:

PHP كود :

Imports System.Data.OleDb

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
    Dim con As New OleDb.OleDbConnection(str)

    Dim da1 As OleDbDataAdapter, da2 As OleDbDataAdapter
    Dim dt1 As DataTable, dt2 As DataTable

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gd()
    End Sub

    Dim cm1 As OleDbCommandBuilder, cm2 As OleDbCommandBuilder

    Private Sub gd()
        da1 = New OleDbDataAdapter("select * from tb1", con) : da2 = New OleDbDataAdapter("select * from tb2", con)
        cm1 = New OleDbCommandBuilder(da1) : cm2 = New OleDbCommandBuilder(da2)
        dt1 = New DataTable : dt2 = New DataTable
        da1.Fill(dt1)
        da2.Fill(dt2)

        d1.DataSource = dt1 : d2.DataSource = dt2

        d1.Columns(0).Width = 100 : d2.Columns(0).Width = 100
        d1.Columns(1).Width = 285 : d2.Columns(1).Width = 285

        d1.Columns(0).HeaderText = "الرقم" : d2.Columns(0).HeaderText = "الرقم"
        d1.Columns(1).HeaderText = "الاسم" : d2.Columns(1).HeaderText = "الاسم"

    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True

        da1.Update(dt1)



        If dt1.Rows.Count > 0 Then


            If dt2.Rows.Count > 0 Then
                Dim row As DataRow = dt2.Rows(Me.BindingContext(dt2).Position)
                row.BeginEdit()
                row(1) = dt1.Rows(dt1.Rows.Count - 1)(1)
                row.EndEdit()
                da2.Update(dt2)
            Else
                Dim row As DataRow = dt2.NewRow
                row(1) = dt1.Rows(dt1.Rows.Count - 1)(1)
                dt2.Rows.Add(row)
                da2.Update(dt2)

            End If

        End If



        e.Cancel = False
    End Sub
End Class 


[araxis]

طيب انسى الكلام اللى فات خالص
شايف الصورة اللى فى المرفقات
اثناء مالبرنامج شغال الcell اللى بالاسود والاحمر اللى فى الداتا جريد فيو اللى فوق بيساوى التكست بوكس اللى متعلمين عليهم بالاسود والاحمر ودول بيتغيروا كل شوية يعنى كل اما الرقم اللى فى التكست بوكس بيتغير كل ما الرقم اللى فى الcell الاحمر والاسود اللى فى الداتا جريد فيو اللى فوق تتغير هى بتتغير اثناء مالبرنامج شغال والمفروض عامل كود ال save كمان
باجى اقفل وافتج تانى الاقى مفيش حاجة اتغير فى ال2 cell دول