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

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

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

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

الاجراء التالي يطلبك d1=DataGridview,d2=DataGridview and l1=Listbox
النتيجة ستظهر باداة القائمة

[attachment=28828][attachment=28828]

(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  داتا جريد فيو
اريد عرض التكرارات فيهما فقط
واستبعاد المختلف
منذ شهرين وانا ابحث عن هذا الكود
الرجاء المساعدة

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

---

تم ارفاق توضيح بشان المقارنة بين داتا جريد1 وداتا جريد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 


---

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

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

---

العفو
اقصد اظهار البيانات على الداتا جريد فيو3
وليس على اللست بوكس
حاولت ان اطبق الكود واظهار البيانات على الداتا جريد فيو3 لكن لم يتم تنفيذ الكود
لو بالامكان باستخدام الداتا جريد فيو وليس اللست بوكس
ولكم جزيل الشكر والتقدير

(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 


---

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

---

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

مستر سعود والله من زمان اتابع ردودك واكوادك ما شاء الله كلها عبقرية شكرا لك