13/10/2005, 01:46
|
| | | Fecha de Ingreso: septiembre-2005
Mensajes: 76
Antigüedad: 19 años, 7 meses Puntos: 0 | |
| esto es un codigo de un progama mio
tdetalleventas es el recordset y fg4 es el mshflexgrid
Do While tdetalleventas.EOF = False
fg4.TextMatrix(x, 0) = detalle_codigo
fg4.TextMatrix(x, 1) = detalle_detalle
fg4.TextMatrix(x, 2) = detalle_cantidad
fg4.TextMatrix(x, 3) = detalle_totalart
sumamozo = sumamozo + detalle_totalart
x = x + 1
tdetalleventas.MoveNext
Loop
__________________
Buby Systems |