A la hora de guardar la lista en mi base de datos
With RsDetalleFacturaPlotter
.Requery
.AddNew
> !material = ListView1.ListItems(1)
!medidaancho = ListView1.ListItems(2)
!medidalargo = ListView1.ListItems(2)
!cantidad = ListView1.ListItems(4)
!descuento = ListView1.ListItems(5)
!importe = ListView1.ListItems(6)
!fechadeentrega = ListView1.ListItems(7)
.Update
End With
Me aparece un error que dice:
El indice está fuera de los limites
Si necesitan mas información porfavor preguntenme esque no me se explicar muy bien ya busque información y los ejemplos que encontré no son lo que yo necesito -------------------------------------------:huh:--------------------------------------------
pero que onda estas repitiendo dos veces !medidaancho = ListView1.ListItems(2) y !medidalargo = ListView1.ListItems(2) y donde esta la 3 :xD
With RsDetalleFacturaPlotter
.Requery
.AddNew
!material = ListView1.ListItems(1)
!medidaancho = ListView1.ListItems(2)
!medidalargo = ListView1.ListItems(3) 'aca va 3 xD
!cantidad = ListView1.ListItems(4)
!descuento = ListView1.ListItems(5)
!importe = ListView1.ListItems(6)
!fechadeentrega = ListView1.ListItems(7)
.Update
End With
Muchas gracias por el comentario le he estado dando toda la noche y logre lo que necesitaba me quedo de esta manera
'agregar detalle
Dim Registros As Integer
Registros = RsTemporalFacturaPlotter.RecordCount
RsTemporalFacturaPlotter.Requery
RsTemporalFacturaPlotter.MoveFirst
For x = 1 To Registros
With RsDetalleFacturaPlotter
.Requery
.AddNew
!Factura = txtfactura.Text
'!fecha = Date
!material = ListView1.ListItems.item(x)
!medidaancho = ListView1.ListItems.item(x).ListSubItems(1)
!medidalargo = ListView1.ListItems.item(x).ListSubItems(2)
!cantidad = ListView1.ListItems.item(x).ListSubItems(3)
!descuento = ListView1.ListItems.item(x).ListSubItems(5)
!importe = ListView1.ListItems.item(x).ListSubItems(7)
!semana = lblsemana.Caption
!Hora = lblhora.Caption
.Update
End With
If x = Registros Then Else RsTemporalFacturaPlotter.MoveNext
Next
'enviar un mensaje de confirmacion: se facturo correctamente
MsgBox "La factura fue creada correctamente", vbInformation, "Aviso"
Unload Me
MenuPrincipalForm.Show