[حريف برمجة]

(21-05-18, 02:43 PM)hqom كتب :

السلام عليكم ورحمة الله 

طلبي هو كود انشاء الله يكون سهل 

عندي listview1 

و 

عندي listview2

الـ listview1 تحتوي على اسماء مثلاً 

1- محمد عبد الله 

2- قاسم امين 

3 زكي جمعة 

والـ listview2 تحتوي على ملعومات تخص كل واحد من هذه الاسماء مثلاً 

1- محمد عبدالله - رقم الهاتف - تاريخ الميلاد 

2- محمد عبدالله - رقم الهاتف - تاريخ الميلاد 

3- محمد عبدالله - رقم الهاتف - تاريخ الميلاد 

4- قاسم امين - رقم الهاتف - تاريخ الميلاد 

5- قاسم امين - رقم الهاتف - تاريخ الميلاد

6- زكي جمعة - رقم الهاتف - تاريخ الميلاد 

7- زكي جمعة - رقم الهاتف - تاريخ الميلاد 

8- زكي جمعة - رقم الهاتف - تاريخ الميلاد 

9- زكي جمعة - رقم الهاتف - تاريخ الميلاد 

الطلب هنا ( لو اريد احدد Select على الـ،listview1 مثلاً حددت على ( محمد عبدالله ) 

اريد ان يضهر في الـlistview2 فقط محمد عبدالله حتى لو كان الاسم متكرر خمس مرات اريده ان يضهر فقط هو مع المتكرر بنفس الاسم

بأختصار عرض بيانات محمد عبدالله كلهاا الموجوده في listview2 

يعني لو محمد عبدالله متكرر مرتين يضهرهم لو ثلاث مرات كذلك يضهرهم لي 

المشروع بالمرفقات

وشكراً مقدماً

---

uppppppppp

---

up  up  up  up  

مرحبا ،،

فقط ضع هذا الكود وسوف ينفذ ما طلبت :

كود :

Private Sub ListView1_Click(sender As Object, e As EventArgs) Handles ListView1.Click
       ListView2.Items.Clear()
       Dim sql As String = "SELECT * FROM hqom where name_1='" & ListView1.SelectedItems.Item(0).SubItems(1).Text & "'"
       cmd = New OleDbCommand(sql, con)
       Try
           con.Open()
           adapter = New OleDbDataAdapter(cmd)
           adapter.Fill(dt)
           For Each row As DataRow In dt.Rows
               Dim id As String = "" : If Not row.IsNull(0) Then id = row(0)
               Dim name_1 As String = "" : If Not row.IsNull(1) Then name_1 = row(1)
               Dim Mopile_1 As String = "" : If Not row.IsNull(2) Then Mopile_1 = row(2)
               Dim Date_1 As String = "" : If Not row.IsNull(3) Then Date_1 = row(3)
               Populate2(id, name_1, Mopile_1, Date_1)
           Next
           dt.Rows.Clear()
           con.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
           con.Close()
       End Try
   End Sub

ثم تأكد من اسم زكي جمعه في الليست فيو 1 يطابق الموجود في قاعدة البيانات !