(07-04-23, 09:57 PM)yosif كتب : لدي 2  داتا جريد فيو
اريد عرض التكرارات فيهما فقط
واستبعاد المختلف
منذ شهرين وانا ابحث عن هذا الكود
الرجاء المساعدة

(07-04-23, 10:48 PM)Taha Okla كتب :

(07-04-23, 09:57 PM)yosif كتب : لدي 2  داتا جريد فيو
اريد عرض التكرارات فيهما فقط
واستبعاد المختلف
منذ شهرين وانا ابحث عن هذا الكود
الرجاء المساعدة

قم بإرفاق مشروع فيه المشكلة واضحة
عسى أن نستطيع مساعدتك..

(08-04-23, 12:49 AM)yosif كتب :

(07-04-23, 10:48 PM)Taha Okla كتب :

(07-04-23, 09:57 PM)yosif كتب : لدي 2  داتا جريد فيو
اريد عرض التكرارات فيهما فقط
واستبعاد المختلف
منذ شهرين وانا ابحث عن هذا الكود
الرجاء المساعدة

قم بإرفاق مشروع فيه المشكلة واضحة
عسى أن نستطيع مساعدتك..

(08-04-23, 12:38 AM)سعود كتب :
الاجراء التالي يطلبك d1=DataGridview,d2=DataGridview and l1=Listbox
النتيجة ستظهر باداة القائمة

PHP كود :

Private Sub getDups(d1 As DataGridView, d2 As DataGridView, l1 As ListBox)
        l1.Items.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.Items.Add(row2.Cells(1).Value)
                End If
            Next
        Next
    End Sub 


(08-04-23, 02:04 AM)yosif كتب :

(08-04-23, 12:38 AM)سعود كتب :
الاجراء التالي يطلبك d1=DataGridview,d2=DataGridview and l1=Listbox
النتيجة ستظهر باداة القائمة

PHP كود :

Private Sub getDups(d1 As DataGridView, d2 As DataGridView, l1 As ListBox)
        l1.Items.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.Items.Add(row2.Cells(1).Value)
                End If
            Next
        Next
    End Sub 


---

لو تتكرموا بكتابة الكود باستخدام الداتا جريد وليس اللست فيو
ولكم جزيل الشكر والتقدير

(08-04-23, 03:19 AM)سعود كتب :

(08-04-23, 02:04 AM)yosif كتب :

(08-04-23, 12:38 AM)سعود كتب :
الاجراء التالي يطلبك d1=DataGridview,d2=DataGridview and l1=Listbox
النتيجة ستظهر باداة القائمة

PHP كود :

Private Sub getDups(d1 As DataGridView, d2 As DataGridView, l1 As ListBox)
        l1.Items.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.Items.Add(row2.Cells(1).Value)
                End If
            Next
        Next
    End Sub 


---

لو تتكرموا بكتابة الكود باستخدام الداتا جريد وليس اللست فيو
ولكم جزيل الشكر والتقدير

الكود كتبته كما هو مطلوب ولا يوجد اي كود يخص الليست فيو.

(08-04-23, 12:31 PM)سعود كتب :

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