CONSULTA DE LISTVIEW1 CODIGO

MAUR.
28 de Agosto del 2004
HOLA AMIGOS SOY NUEVO EN ESTO MICONSULTA ES:
COMO PUEDO UTILISAR EL LISTVIEW O COMO SON LOS COMANDO PARA INGRESAR REGITROS A UN (LISTVIEW)
EL CODIGO QUE TENGO ES :
Public Function lstvDatos_a_cero()
'Aspecto de listview
With frmPrincipal.lstvDatos
.View = lvwReport
.GridLines = True
.FullRowSelect = True
.LabelEdit = lvwManual
.ColumnHeaders.Add , , "Orden", 1000
.ColumnHeaders.Add , , "Item", 1500
.ColumnHeaders.Add , , "Codigo", 1700
.ColumnHeaders.Add , , "Detalle", 1500
.ColumnHeaders.Add , , "Ancho", 400
.ColumnHeaders.Add , , "Largo", 400
.ColumnHeaders.Add , , "Espesor", 400
.ColumnHeaders.Add , , "Mat", 1000
.ColumnHeaders.Add , , "unidad_solicitada", 1500
.ColumnHeaders.Add , , "kilos_+_10%", 1700

Public Function Carga_lstvDatos() ?ES ( LISTVIEW)
'Muestra los datos de la base en el listview
With rsTabla
If .RecordCount <> 0 Then
frmPrincipal.lstvDatos.ListItems.Clear
.MoveFirst
Do While Not .EOF
'Set Items = frmPrincipal.lstvDatos.Add(, , .Fields(0) & "")
Set Items = frmPrincipal.lstvDatos.ListItems.Add(, , .Fields(0) & "")
Items.SubItems(1) = .Fields(1) & ""
Items.SubItems(2) = .Fields(2) & ""
Items.SubItems(3) = .Fields(3) & ""
Items.SubItems(4) = .Fields(4) & ""
Items.SubItems(5) = .Fields(5) & ""
Items.SubItems(6) = .Fields(6) & ""
Items.SubItems(7) = .Fields(7) & ""
Items.SubItems(8) = .Fields(8) & ""
Items.SubItems(9) = .Fields(9) & ""
'Items.SubItems(10) = .Fields(10) & ""
'Items.SubItems(11) = .Fields(11) & ""

.MoveNext
Loop
End If

End With
End Function
ESTE CODIGO ME CARGA LA BASE DE DATO
Y LUEGO PUEDO INGRESAR REGISTROS(ME MUESTRA TODO LOS REGISTRO
YO SOLO QUIERO INGRESAR REGISTROS EN UN (LISVIEW1)EN BLANCO Y LUEGO GRABAR
COMO PUEDO HACER ESTO..
MAS DETALLE SOLO ESCRIBE UNA RESPUESTA
Y TENVIARE ALGO.
DE ANTE MANO MUCHAS GRACIAS
LOS AMIGO PARA ESO ESTAN QUE TIENEN MAYOR ESTUDIO GRACIAS...

krizall
28 de Agosto del 2004
hola, no entiendo bien tu pregunta... pero el codigo que tienes para agregar datos a tulistview esta bien, lo que no entinedo es ese & "" al final de los rs.field(x)

escribe mas especificamente que es lo que quieres hacer, ya sea:
guardar los datos contenidos en el listview en una base de datos
agregar mas datos al listview
buscar datos en el listview
eliminar datos del listview
o editarlos...

cualquier cosa puedes escribirme a mi correo, si tengo la solucion a tu problema puedes contar con mi ayuda...