[yosif]

PHP كود :

Public Class Form1
    Private Sub getDups(d1 As DataGridView, d2 As DataGridView, l1 As DataGridView)
        l1.Rows.Clear()
        For Each row As DataGridViewRow In d1.Rows
            For Each row2 As DataGridViewRow In d2.Rows
                If row2.Cells(1).Value = row.Cells(1).Value Then
                    l1.Rows.Add(row2.Cells(0).Value, row2.Cells(1).Value, row2.Cells(2).Value)
                End If
            Next
        Next
    End Sub
    Private Sub btnfilldgv1_Click(sender As Object, e As EventArgs) Handles btnfilldgv1.Click
        If TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then Exit Sub
        For i As Integer = 0 To dgv1.Rows.Count - IIf(dgv1.AllowUserToAddRows, 2, 1)
            Dim t As String = dgv1.Rows(i).Cells(1).Value
            Beep()
            If t = TextBox1.Text Then
                dgv1.CurrentCell = dgv1.Rows(i).Cells(1)
                Exit Sub
            End If
        Next
        dgv1.Rows.Add(dgv1.Rows.Count + 1, TextBox1.Text, TextBox2.Text)
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox1.Focus()
        TextBox1.Select()
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        dgv1.ColumnCount = 3
        With dgv1
            .Columns(0).HeaderText = "الرقم"
            .Columns(1).HeaderText = "الاسم"
            .Columns(2).HeaderText = "الراتب"
        End With
        dgv2.ColumnCount = 3
        With dgv2
            .Columns(0).HeaderText = "الرقم"
            .Columns(1).HeaderText = "الاسم"
            .Columns(2).HeaderText = "الراتب"
        End With
        dgv3.ColumnCount = 3
        With dgv3
            .Columns(0).HeaderText = "الرقم"
            .Columns(1).HeaderText = "الاسم"
            .Columns(2).HeaderText = "الراتب"
        End With
    End Sub
    Private Sub btnfilldgv2_Click(sender As Object, e As EventArgs) Handles btnfilldgv2.Click
        If TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then Exit Sub
        For i As Integer = 0 To dgv2.Rows.Count - IIf(dgv2.AllowUserToAddRows, 2, 1)
            Dim t As String = dgv2.Rows(i).Cells(1).Value
            If t = TextBox1.Text Then
                Beep()
                dgv2.CurrentCell = dgv2.Rows(i).Cells(1)
                Exit Sub
            End If
        Next
        dgv2.Rows.Add(dgv2.Rows.Count + 1, TextBox1.Text, TextBox2.Text)
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox1.Focus()
        TextBox1.Select()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        getDups(dgv1, dgv2, dgv3)
    End Sub
End Class 


---

شكرا جزيلا
مشكلة بحث عنها كثيرا ولم اجد لها حل حتى في المواقع الاجنبية
شكرا مرة اخرى
وزادكم الله علما

---

والكود تطبق معي مائة في المائة