Export Data to Spreadsheet

[OptikConnex]

I have data that I need to either put in a spreadsheet, or use in a listview to view it. I would rather use the listview but I don't understand how to put my data into it. Here is the code I have, currently I am just display all the data in a label and it sucks.
Private Sub btnGetDoubles_C lick(ByVal sender As System.Object, ByVal e As System.EventArg s) HandlesbtnGetDo ubles.Click
Dim colors(9) As String
Dim duoColorCollect ion As New Collection
Dim nameList As String = ""
Dim oneInst As Class1
Dim intCounter As Integer

Dim i As Integer
Dim j As Integer
colors(0) = "Red"
colors(1) = "Green"
colors(2) = "Blue"
colors(3) = "Purple"
colors(4) = "White"
colors(5) = "Yellow"
colors(6) = "Brown"
colors(7) = "Orange"
colors(8) = "Black"
colors(9) = "Maroon"

Dim inst As New Class1

For i = 0 To colors.Length - 2
For j = i + 1 To colors.Length - 1
duoColorCollect ion.Add(colors( i) + "-" + colors(j))
inst.InstanceNa me = colors(i) + "-" + colors(j)
Next j
Next i

For Each inst.InstanceNa me In duoColorCollect ion ' Create list of names.
nameList &= inst.InstanceNa me & ControlChars.Cr Lf
Next

' Display the list of names in a label.
lblDoubles.Text = nameList
End Sub

[Cor]

Hi Optik,

I see only one column, why not a listbox.
Than it is very easy when you use a datatabel.

But before I type it, has it to be one column?

Cor

I have data that I need to either put in a spreadsheet, or use in a listview to view it. I would rather use the listview but I don't understand
how to put my data into it. Here is the code I have, currently I am just
display all the data in a label and it sucks. Private Sub btnGetDoubles_C lick(ByVal sender As System.Object, ByVal e As System.EventArg s) HandlesbtnGetDo ubles.Click Dim colors(9) As String
Dim duoColorCollect ion As New Collection
Dim nameList As String = ""
Dim oneInst As Class1
Dim intCounter As Integer

Dim i As Integer
Dim j As Integer
colors(0) = "Red"
colors(1) = "Green"
colors(2) = "Blue"
colors(3) = "Purple"
colors(4) = "White"
colors(5) = "Yellow"
colors(6) = "Brown"
colors(7) = "Orange"
colors(8) = "Black"
colors(9) = "Maroon"

Dim inst As New Class1

For i = 0 To colors.Length - 2
For j = i + 1 To colors.Length - 1
duoColorCollect ion.Add(colors( i) + "-" + colors(j))
inst.InstanceNa me = colors(i) + "-" + colors(j)
Next j
Next i

For Each inst.InstanceNa me In duoColorCollect ion ' Create list of names. nameList &= inst.InstanceNa me & ControlChars.Cr Lf
Next

' Display the list of names in a label.
lblDoubles.Text = nameList
End Sub

[Ken Tucker [MVP]]

Hi,

You can databind to a collection. You can show any property
contained in a class. Try this.

Dim colors(9) As String

Dim duoColorCollect ion As New Collection

Dim nameList As String = ""

Dim oneInst As Class1

Dim intCounter As Integer

Dim i As Integer

Dim j As Integer

colors(0) = "Red"

colors(1) = "Green"

colors(2) = "Blue"

colors(3) = "Purple"

colors(4) = "White"

colors(5) = "Yellow"

colors(6) = "Brown"

colors(7) = "Orange"

colors(8) = "Black"

colors(9) = "Maroon"

For i = 0 To colors.Length - 2

For j = i + 1 To colors.Length - 1

Dim inst As New class1

inst.InstanceNa me = colors(i) + "-" + colors(j)

duoColorCollect ion.Add(inst)

Next j

Next i

ListBox1.DataSo urce = duoColorCollect ion

ListBox1.Displa yMember = "InstanceNa me"

The class

Public Class class1

Dim m_strName As String

Public Property InstanceName() As String

Get

Return m_strName

End Get

Set(ByVal Value As String)

m_strName = Value

End Set

End Property

End Class

Ken

-----------------