hola
tengo un pequño problema con el listview, practicando un poco ya logre llenar la primera columna y con el comando subitem pensaba llenar la segunda, pero cuando lo corre me sale esto:
[URL="http://img19.imageshack.us/i/interfaz1.png/"]http://img19.imageshack.us/i/interfaz1.png/[/URL](perdonen no busque como mostrar la imagen aqui)
aqui esta el codigo
Código:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim con2 As Integer
Dim sem1, sem2, resul, resul2 As Double
Dim con As Integer = 0
Dim div As Double = 0
Dim arre(TextBox3.Text) As Double
With ListView1
.View = View.Details
.Columns.Add("Clientes", 100)
.Columns.Add("Tiempo de llegada", 100)
.Columns.Add("Tiempo de servicio", 100)
.Columns.Add("Hora de llegada", 100)
.Columns.Add("Hora de salida", 100)
.Columns.Add("Hora de llegada", 100)
.Columns.Add("Hora de salida", 100)
.Columns.Add("Hora de llegada", 100)
.Columns.Add("Hora de salida", 100)
End With
For con2 = 1 To TextBox3.Text
Dim item As ListViewItem
item = New ListViewItem()
item.Text = con2
'item.SubItems.Add(con2)
ListView1.Items.Add(item)
Next
sem1 = TextBox1.Text
sem2 = TextBox2.Text
Do While con < TextBox3.Text
resul = 0
resul = sem1 * sem2
resul = resul Mod 100
If resul <= 50 Then
resul2 = resul / 10
arre(con) = resul2
Dim item2 As ListViewItem
item2 = New ListViewItem()
'item2.Text = arre(con)
item2.SubItems.Add(arre(con))
ListView1.Items.Add(item2)
con = con + 1
End If
sem1 = sem2
sem2 = resul
Loop
End Sub
la verdad no se que problema tendra, ya que lo hize segun lo que investige, por adelantado gracias por su atencion