Categorized Items

Getting Started
#1

Hi All,

I want to categorized items n listbox with criteria,

[code] Listbox1.AddRow “001”, “Orange”, “1.00”,“10%”,“Arief”
Listbox1.AddRow “001”, “Apple”, “1.00”,“10%”,“Arief”
Listbox1.AddRow “001”, “Banana”, “1.00”,“10%”,“Arief”

Listbox1.AddRow “004”, “Orange”, “1.00”,"",“Arief”
Listbox1.AddRow “005”, “Apple”, “1.00”,"",“Brandon”
Listbox1.AddRow “006”, “Banana”, “1.00”,"",“Brenda”

Listbox1.AddRow “007”, “Orange”, “1.00”,"",“Arief”
Listbox1.AddRow “007”, “Apple”, “1.00”,"",“Arief”
Listbox1.AddRow “007”, “Banana”, “1.00”,"",“Arief”

dim f as folderitem
dim tisx as TextOutputStream
f = new folderitem(“item.txt”)
tisx = f.CreateTextFile

dim Last_first_word as String
dim maxRow as Integer = Listbox1.listcount-1
for row as integer = 0 to maxRow
if Listbox1.Cell(row,0)<> Last_first_word then
tisx.WriteLine “”
tisx.writeline listBox1.cell(row,0)
tisx.WriteLine listBox1.cell(row,1)+" “+listBox1.cell(row,2)
tisx.WriteLine listBox1.cell(row,3)
tisx.WriteLine listBox1.cell(row,4)
Last_first_word=Listbox1.Cell(row,0)
else
tisx.WriteLine listBox1.cell(row,1)+” "+listBox1.cell(row,2)
end if

next

tisx.Close
f.Launch[/code]

but the result is not expected.

I wanted to categorized like,
code number
product (listed as long as the code number is the same)
Percentage ( write if the listbox has a value)
Name

but the result is shows like ,

[code]
001
Orange 1.00
10%
Arief
Apple 1.00
Banana 1.00

004
Orange 1.00

Arief

005
Apple 1.00

Brandon

006
Banana 1.00

Brenda

007
Orange 1.00

Arief
Apple 1.00
Banana 1.00[/code]

I am expecting like,

001
Orange 1.00
Apple 1.00
Banana 1.00
10%
Arief

004
Orange 1.00
Arief

005
Apple 1.00
Brandon

006
Banana 1.00
Brenda

007
Orange 1.00
Apple 1.00
Banana 1.00
Arief

any helps ?

thanks
regards,
Arief

#2