08-04-23, 12:38 AM (آخر تعديل لهذه المشاركة : 08-04-23, 12:39 AM {2} بواسطة سعود.)
الاجراء التالي يطلبك 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 (آخر تعديل لهذه المشاركة : 08-04-23, 02:05 AM {2} بواسطة 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: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, 04:44 AM (آخر تعديل لهذه المشاركة : 08-04-23, 04:48 AM {2} بواسطة yosif.)
(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 لكن لم يتم تنفيذ الكود
لو بالامكان باستخدام الداتا جريد فيو وليس اللست بوكس
ولكم جزيل الشكر والتقدير
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
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
08-04-23, 06:08 PM (آخر تعديل لهذه المشاركة : 08-04-23, 06:25 PM {2} بواسطة yosif.)
(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
شكرا جزيلا
مشكلة بحث عنها كثيرا ولم اجد لها حل حتى في المواقع الاجنبية
شكرا مرة اخرى
وزادكم الله علما
والكود تطبق معي مائة في المائة
