Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Listview: problema con datos insertados en diferentes columnas

Estas en el tema de Listview: problema con datos insertados en diferentes columnas en el foro de Visual Basic clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 21/04/2011, 10:33
 
Fecha de Ingreso: abril-2011
Mensajes: 5
Antigüedad: 13 años
Puntos: 0
Listview: problema con datos insertados en diferentes columnas

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
  #2 (permalink)  
Antiguo 23/04/2011, 19:01
 
Fecha de Ingreso: abril-2011
Mensajes: 5
Antigüedad: 13 años
Puntos: 0
Respuesta: Listview: problema con datos insertados en diferentes columnas

ya lo solucione

Etiquetas: columnas, diferentes, listview
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:19.