Question Listview Items and Subitems ?

[MrDeNNiS]

Hello guys,

i coding new program for SQL Server 2000 users but i have problem.

when i use this code

ListView1.Items.Add("List item text", 100)
ListView1.Items(0).SubItems.Add("item2")

items adding to right

i want to items add to down

Sorry for my bad English

 

[Johnson]

If you just trying to add a new entry

       lst.Items.Add("List item text")
        lst.Items.Add("List item text")
        lst.Items.Add("List item text")

 

[MrDeNNiS]

I tried but did not

 

[JohnH]

What display mode are you using? ListView.View Property (System.Windows.Forms)

 

[send2te]

{Be hAppy}

dim LVI as New ListViewItem("First Column Text")
LVI.subitems.add ("2nd Column Text")
LVI.subitems.add ("3rd Column Text")
.
.


When you finished the subitems adding upto totoal number of columns then

MyListView.Items.Add LVI

 

[MrDeNNiS]

{Be hAppy}

dim LVI as New ListViewItem("First Column Text")
LVI.subitems.add ("2nd Column Text")
LVI.subitems.add ("3rd Column Text")
.
.


When you finished the subitems adding upto totoal number of columns then

MyListView.Items.Add LVI

woowww it's working thanks a lot

 

[send2te]

woowww it's working thanks a lot

{Be hAppy}

 

[MrDeNNiS]

this time I'm having trouble adding items to the first column

        Dim sql As String
        sql = "select * from USERDATA"
        rs.Open(sql, cn, 1, 3)
        Do Until rs.EOF
            ListView1.Items.Add(rs.Fields("strUserId").Value)
            Dim LVI As New ListViewItem '("first item")
            LVI.SubItems.Add(rs.Fields("strUserId").Value)
            LVI.SubItems.Add(rs.Fields("strUserId").Value)
            LVI.SubItems.Add(rs.Fields("strUserId").Value)
            ListView1.Items.Add(LVI)


            rs.MoveNext()
        Loop
        rs.Close()

 

[send2te]

this time I'm having trouble adding items to the first column

        Dim sql As String
        sql = "select * from USERDATA"
        rs.Open(sql, cn, 1, 3)
        Do Until rs.EOF
            ListView1.Items.Add(rs.Fields("strUserId").Value)
            Dim LVI As New ListViewItem '("first item")
            LVI.SubItems.Add(rs.Fields("strUserId").Value)
            LVI.SubItems.Add(rs.Fields("strUserId").Value)
            LVI.SubItems.Add(rs.Fields("strUserId").Value)
            ListView1.Items.Add(LVI)


            rs.MoveNext()
        Loop
        rs.Close()

Change as:

Dim sql As String
sql = "select * from USERDATA"
rs.Open(sql, cn, 1, 3)
Do Until rs.EOF
Dim LVI As New ListViewItem(rs.Fields("Field1").Value.ToString)
LVI.SubItems.Add(rs.Fields("Field2").Value.ToString)
LVI.SubItems.Add(rs.Fields("Field3").Value.ToString)
LVI.SubItems.Add(rs.Fields("Field4").Value.ToString)
ListView1.Items.Add(LVI)
rs.MoveNext()
Loop
rs.Close()