[alims]

السلام عليكم و رحمة الله و بركاته
عندى سؤال صغير لكن مشكلة و هو الكود التالى يتم عرض بيانات من الجدوال مع شرطين و هو اذا كان المستخدام اونلاين يتم العرض فى listview1 واذا كان اوفلاين يتم العرض فى listview2
ازاى اقدر اصغر حجم الكود ده؟؟؟ بحيث ان يتم البحث عن وجمع جميع البيانات و بعد ذلك يتم فلترة البيانات اذا كان اونلاين يتم عرض ادخل listview1 و اذا كان اوفلاين يتم عرض ادخلlistview2

كود :

   Sub online()
       If con.State = ConnectionState.Open Then con.Close()
       Form1.ListView1.Columns.Add("idfriend", 80, HorizontalAlignment.Left)
       Form1.ListView1.Columns.Add("namefriend", 80, HorizontalAlignment.Left)
       Form1.ListView1.GridLines = True
       con.Open()
       Dim cmd As New SqlCommand("select * from userandfriend where iduser=('" & Form1.Label5.Text.ToString & "') and Status=('online')", con)
       Dim da As SqlDataReader = cmd.ExecuteReader
       Form1.ListView1.Items.Clear()
       Do While da.Read = True
           Dim list1 = Form1.ListView1.Items.Add(da(0))
           list1.subitems.add(da(1))
       Loop
       If con.State = ConnectionState.Open Then con.Close()
   End Sub
   Sub offline()
       If con.State = ConnectionState.Open Then con.Close()
       Form1.ListView2.Columns.Add("idfriend", 80, HorizontalAlignment.Left)
       Form1.ListView2.Columns.Add("namefriend", 80, HorizontalAlignment.Left)
       Form1.ListView2.GridLines = True
       con.Open()
       Dim cmd As New SqlCommand("select idfriend,namefriend from userandfriend where iduser=('" & Form1.Label5.Text.ToString & "') and Status=('offline')", con)
       Dim da As SqlDataReader = cmd.ExecuteReader
       Form1.ListView2.Items.Clear()
       Do While da.Read = True
           Dim list1 = Form1.ListView2.Items.Add(da(0))
           list1.subitems.add(da(1))
       Loop
       If con.State = ConnectionState.Open Then con.Close()
   End Sub

السؤال الثانى و هو عندى عمود داخل listview وده بيحمل رقم الصديق idfriend عايز اخفى العمود ده و يظهر اسم الصديق فقط namefriend
لكن فى حالة الضغط على اسم الصديق namefriend يتم اظهر رسائل تحتوى على الرقم idfriend الخاص به من العمود المخفى و اسف على الاطاله