منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - محتاج قبل اما البرنامج يقفل ياخد اخر row فى الداتاجريد فيو يحطها فى داتا جريد فيو

الصفحات : 1 2

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

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

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

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

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

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

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

ادينى مثال اة

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

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

المثال مرفق

طبعا النسخ من 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 

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

[attachment=11511]

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

araxis

سعود

araxis

سعود

araxis

سعود

araxis

أبو عمر

سعود

araxis