[khaled12345]

(15-06-17, 03:25 PM)ابو خالد كتب : اسحب كل البيانات من الداتا الاربع الى الداتا الرئيسية
 

PHP كود :

        Dim i As Integer
        For i = 0 To dgv1.RowCount - 1
            dgv5.Rows.Add(dgv1.Item(0, i).Value, dgv1.Item(1, i).Value)
        Next

        For i = 0 To dgv2.RowCount - 1
            dgv5.Rows.Add(dgv2.Item(0, i).Value, dgv2.Item(1, i).Value)
        Next


        For i = 0 To dgv3.RowCount - 1
            dgv5.Rows.Add(dgv3.Item(0, i).Value, dgv3.Item(1, i).Value)
        Next


        For i = 0 To dgv4.RowCount - 1
            dgv5.Rows.Add(dgv4.Item(0, i).Value, dgv4.Item(1, i).Value)
        Next 


أعز ك الله أخي الحبيب  أبو خالد

كتبت الكود في الفورم الرئيسي كالتالي ولكن يبدو فيه خطأ مني

فبرجاء مراجعته مع الشكر

========================================================================

Imports System.Data.OleDb

Public Class MainForm

　

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Data1.Show()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Data2.Show()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Data3.Show()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Data4.Show()

End Sub

　

Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim i As Integer

For i = 0 To dgv1.RowCount - 1

dgv5.Rows.Add(dgv1.Item(0, i).Value, dgv1.Item(1, i).Value)

Next

For i = 0 To dgv2.RowCount - 1

dgv5.Rows.Add(dgv2.Item(0, i).Value, dgv2.Item(1, i).Value)

Next

　

For i = 0 To dgv3.RowCount - 1

dgv5.Rows.Add(dgv3.Item(0, i).Value, dgv3.Item(1, i).Value)

Next

　

For i = 0 To dgv4.RowCount - 1

dgv5.Rows.Add(dgv4.Item(0, i).Value, dgv4.Item(1, i).Value)

Next

　

End Sub

End Class