21/11/2006, 13:02
|
 | | | Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 18 años, 9 meses Puntos: 2 | |
| Hola,
imagino que tienes el datagrid asociado por medio de un Adodc y si es asi es relativamente simple.... al parecer
intenta con algo asi
dim Vector (1 to 2) as long
if Adodc1.recordset.recordcount > txtcantidad.text abd me.adodc1.recordset.eof = false then
redim Vector (1 to val(txtcantidad.text)) <-- redimensiona el vector
adodc1.recordset.movefirst <-- mueve al primero
for x = 1 to val(txtcantidad.text)
Vector(x) = adodc1.recordset("NombreCampo) <-- Asigna el valor al vector
Adodc1.recordset.movenext <---mueve al siguiente registro
next
es mas o menos la idea espero te sirva |