27/04/2010, 11:48
|
 | | | Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 4 meses Puntos: 47 | |
| Respuesta: Consulta sobre Record set
Prueba a ver si funciona...
...
...
...
rst.Open
For f = 1 To MSFlexGrid3.Rows - 2
IF RST!FECHA_VENCIMIENTO='"" THEN MSFlexGrid3.TextMatrix(f, 6)="NO DATA"
IF RST!FECHA_INGRESO='"" THEN MSFlexGrid3.TextMatrix(f, 5)="NO DATA"
rst.AddNew Array("codigo", "descripcion", "cantidad_pendiente", "cantidad_despachada", "lote", "fecha_ingreso", "fecha_vencimiento"), _
Array(MSFlexGrid3.TextMatrix(f, 0), MSFlexGrid3.TextMatrix(f, 1), MSFlexGrid3.TextMatrix(f, 2), _
MSFlexGrid3.TextMatrix(f, 3), MSFlexGrid3.TextMatrix(f, 4), MSFlexGrid3.TextMatrix(f, 5), MSFlexGrid3.TextMatrix(f, 6))
Next
|