• Miércoles 21 de Abril de 2021, 12:11

Autor Tema:  Como guardar varias lineas de un MSHFlexGrid  (Leído 1646 veces)

PedroM

  • Nuevo Miembro
  • *
  • Mensajes: 6
    • Ver Perfil
Como guardar varias lineas de un MSHFlexGrid
« en: Domingo 20 de Marzo de 2011, 20:49 »
0
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]