[Anas Mahmoud]

تفضل اخي الكريم

كود :

   Sub PopulateListViews()
       If Con.State = ConnectionState.Open Then Con.Close()

       For Each lst As ListView In {ListView1, ListView2}
           'lst.Columns.Add("idfriend", 80, HorizontalAlignment.Left)
           lst.Columns.Add("namefriend", 80, HorizontalAlignment.Left)
           lst.GridLines = True
       Next




       Con.Open()
       Dim cmd As New SqlCommand("select * from userandfriend where iduser=('" & Label5.Text.ToString & "')", Con)
       Dim da As SqlDataReader = cmd.ExecuteReader



       Do While da.Read = True
           Dim lst As ListView = If(da("Status") = "online", ListView1, ListView2)
           Dim i As New ListViewItem(da("namefriend").ToString)
           i.SubItems.Add(da("idfriend"))
           lst.Items.Add(i)
       Loop


       If Con.State = ConnectionState.Open Then Con.Close()
   End Sub

اما السؤال الثاني فكل ما عليك هو عدم اضافة العمود من البداية ولن يظهر ، عندما تضيف SubItem فانه لن يظهر