error de for sin next
Publicado por LAURA (2 intervenciones) el 24/06/2013 18:42:20
chicos tengo que entregar mi proyecto de visual basic 6.0 pero me sale un error de compilacion "For sin Next"
Sub guardar()
rstdetallesdeventa.AddNew
rstdetallesdeventa!Numerodefactura = Txtnumfac
rstdetallesdeventa!Codigoclientes = TxtCodigoclie
rstdetallesdeventa!Codigoempleados = TxtCodigoem
rstdetallesdeventa!Fecha = TxtFecha
rstdetallesdeventa!Productos = txtcodigoproducto
rstdetallesdeventa!Cantidad = TxtCantidad
rstdetallesdeventa.Update
For I = 0 To LstCodigo.ListCount - 1
rstdetallesdeventa.AddNew
rstdetallesdeventa!Productos = LstCodigo.List(I)
rstdetallesdeventa!Codigoclientes = TxtCodigoclie
rstdetallesdeventa!Cantidad = LstCantidad.List(I)
rstdetallesdeventa.Update
End Sub
Sub guardar()
rstdetallesdeventa.AddNew
rstdetallesdeventa!Numerodefactura = Txtnumfac
rstdetallesdeventa!Codigoclientes = TxtCodigoclie
rstdetallesdeventa!Codigoempleados = TxtCodigoem
rstdetallesdeventa!Fecha = TxtFecha
rstdetallesdeventa!Productos = txtcodigoproducto
rstdetallesdeventa!Cantidad = TxtCantidad
rstdetallesdeventa.Update
For I = 0 To LstCodigo.ListCount - 1
rstdetallesdeventa.AddNew
rstdetallesdeventa!Productos = LstCodigo.List(I)
rstdetallesdeventa!Codigoclientes = TxtCodigoclie
rstdetallesdeventa!Cantidad = LstCantidad.List(I)
rstdetallesdeventa.Update
End Sub
Valora esta pregunta


0