[RESOLVED] How to move to next line in listview

[azsx123]

. How do I proceed to the next line in list view? my code is

        Dim LVItem As New ListViewItem
        Dim total(29) As Decimal
        Dim q As Integer
        If q <= 29 Then
            LVItem.Text = PFlavor(q)
            If Quantity(q) = 1 Then
                LVItem.SubItems.Add("".ToString)
                LVItem.SubItems.Add("".ToString)
            Else
                LVItem.SubItems.Add(price(q).ToString)
                LVItem.SubItems.Add(Quantity(q).ToString)
            End If
            total(q) = price(q) * Quantity(q)
            LVItem.SubItems.Add(total(q).ToString)
            ListView1.Items.Add(LVItem)
            q += 1
        End If
        q = 0

[.paul.]

Dim total(29) As Decimal
 
for q as integer = 0 to 29
    Dim LVItem As New ListViewItem
    LVItem.Text = PFlavor(q)
    If Quantity(q) = 1 Then
        LVItem.SubItems.Add("")
        LVItem.SubItems.Add("")
    Else
        LVItem.SubItems.Add(price(q).ToString)
        LVItem.SubItems.Add(Quantity(q).ToString)
    End If
    total(q) = price(q) * Quantity(q)
    LVItem.SubItems.Add(total(q).ToString)
    ListView1.Items.Add(LVItem)                   
next

[azsx123]

It seems that the program loops infinitly

[.paul.]

can you post the exact code you're using?

[azsx123]

My bad. it's ok now. Uhm.. How do you prevent the program from displaying empty arrays? Say if (4) and so on is empty.

[.paul.]

Dim total(29) As Decimal
 
for q as integer = 0 to 29
    if PFlavor(q) <> "" then
        Dim LVItem As New ListViewItem
        LVItem.Text = PFlavor(q)
        If Quantity(q) = 1 Then
            LVItem.SubItems.Add("")
            LVItem.SubItems.Add("")
        Else
            LVItem.SubItems.Add(price(q).ToString)
            LVItem.SubItems.Add(Quantity(q).ToString)
        End If
        total(q) = price(q) * Quantity(q)
        LVItem.SubItems.Add(total(q).ToString)
        ListView1.Items.Add(LVItem)                   
    end if
next

[azsx123]

Thanks. it works now. i've got another question. I want to update the listview from another form. So far, i can only write 1 line. if I try to enter a new line, and error pops up saying i can't over write the line. Also, the line breaks at the 2nd column. May I know which code breaks the line?

        Dim total(29) As Decimal
        Quantity(c) = txtQuantity.Text
        frmMainS.ListView1.Items.Add(PFlavor(c))
        If Quantity(c) <> 0 Then
            If Quantity(c) = 1 Then
                Dim LVItem As New ListViewItem
                frmMainS.LVItem.SubItems.Add("")
                frmMainS.LVItem.SubItems.Add("")
            Else
                frmMainS.LVItem.SubItems.Add(price(c).ToString)
                frmMainS.LVItem.SubItems.Add(Quantity(c).ToString)
            End If
            total(c) = price(c) * Quantity(c)
            frmMainS.LVItem.SubItems.Add(total(c).ToString)
            frmMainS.ListView1.Items.Add(frmMainS.LVItem)
            c += 1
        End If

[.paul.]

frmMainS.LVItem should be just LVItem

[azsx123]

Thanks. but the line still breaks at the 2nd column. The subitems are written on the following line

[yogesh12]

wat is that pflavor ?

[.paul.]

remove this:

frmMainS.ListView1.Items.Add(PFlavor(c))

+ change this:

Dim LVItem As New ListViewItem(PFlavor(c))

[.paul.]

the lvItem declaration should be before:

If Quantity(c) = 1 Then

+ not inside the if block

[azsx123]

yep. thanks! work's fine now.