SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: PedroM en Domingo 20 de Marzo de 2011, 20:49

Título: Como guardar varias lineas de un MSHFlexGrid
Publicado por: PedroM en Domingo 20 de Marzo de 2011, 20:49
Buen tarde comunidad, estoy realizando una aplicación y me tope con una piedrita :S, resuelta que tengo una control MSHFlexGrid para hacer una lista de articulos tipo factura con el siguiente codigo.
Citar
With rs_venta
        .AddNew
        .Fields(0) = Label11.Caption
        .Fields(1) = Label12.Caption
        .Fields(2) = Text1.Text
        .Fields(3) = Label13.Caption
        .Fields(4) = Option1.Value
        .Fields(5) = Option2.Value
        .Fields(6) = Option3.Value
        .Update
    End With
       
    With rs_detalleventa
        .AddNew
        .Fields(0) = Label11.Caption
        For s = 1 To ListView1.ListItems.count
        .Fields(1) = ListView1.ListItems(s).Text
        .Fields(2) = ListView1.ListItems(s).ListSubItems(1).Text
        .Fields(3) = ListView1.ListItems(s).ListSubItems(3).Text
        .Fields(4) = ListView1.ListItems(s).ListSubItems(2).Text
        .Update
         Next s
        '.Fields(5) = Label13.Caption
    End With

asi me guarda la primera linea del control, pero no realiza el recorrido para guardar las demas lineas de la factura, tengo una base de datos en access y quisiera que con este codigo me guardara la informacion de la siguiente manera.
ejemplo:
que venda 3 items diferente.
 
Nº de factura                         Items              Categoria                       Precio                   Cantidad[/b]
0000001                                items 1                varios                          2                           3
0000001                                items 2                varios                          4                             5
0000001                                items 3                varios                          4                       5 [/b]