Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: FreddyJ en Noviembre 05, 2009, 08:29:06 pm
-
el problema es que no se como hacer para que los datos de un texto se muestren en el listview y luego en en una tabla.
:-\
-
Quieres cargar la información desde un texto? Cuando dices Texto a que te refieres? Un archivo plano?
Respecto a Luego en una tabla, hablas de hacer el ingreso despues en una tabla?
-
no entendi, si podes dar un ejemplo, porque adivinos todavia no somos.
-
Aqui la solución a al problema. Despues de tantos intentos lo he logrado. De todos modos gracias por el aporte. Realmente esto es lo que necesitaba, guardar o muestrar en el ListView los datos que estan en textos y label. Simplemente eso, al mismo tiempo guardo en la base de datos con un procedimiento.
Private Sub agregar_venta()
Dim iCol As Long
Dim iItem As Long
With lv
iItem = lv.ListItems.Count + 1
.ListItems.Add , , lbCodigo
.ListItems(iItem).SubItems(1) = lbNombre.Caption
.ListItems(iItem).SubItems(2) = lbTelefono.Caption
.ListItems(iItem).SubItems(3) = lbDireccion.Caption
.ListItems(iItem).SubItems(4) = lbDescripcion
.ListItems(iItem).SubItems(5) = txtCantidad
.ListItems(iItem).SubItems(6) = lbPrecio
.ListItems(iItem).SubItems(7) = txtDescuento
.ListItems(iItem).SubItems(8) = lbIva.Caption
.ListItems(iItem).SubItems(9) = lbFecha
.ListItems(iItem).SubItems(10) = lbSub
.ListItems(iItem).SubItems(11) = lbTotal
.ListItems(iItem).Tag = Format(CLng(lbCodigo.Caption), "00#") & ";" & _
(lbNombre.Caption) & ";" & _
(lbTelefono) & ";" & _
(lbDireccion) & ";" & _
(lbDescripcion) & ";" & _
(txtCantidad) & ";" & _
(lbPrecio) & ";" & _
(txtDescuento) & ";" & _
(lbIva) & ";" & _
(lbFecha) & ";" & _
(lbSub) & ";" & _
(lbTotal)
End With
End Sub