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:
la verdad no se que problema tendra, ya que lo hize segun lo que investige, por adelantado gracias por su atencion 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