Pasar valores de una cuadricula dinámica a un textbox
Tengo un formulario con una cuadricula y un textbox, el formulario se trata de hacer una busqueda de registros con el mismo numero de control, por ejemplo, si quiero los registros con el numero de control 1 en la cuadricula me aparecen todos los registrso con numero uno, este es el codigo que estoi usando el cual funciona perfectamente
p=len(alltrim(thisform.txt.value))
thisform.CrearCuadricula
if p>0
go top
i=0
do while .not. Eof()
if upper(alltrim(thisform.txt.value))=str(control,p)
thisform.Cuadricula.rows=thisform.cuadricula.rows+1
i=i+1
thisform.cuadricula.textmatrix(i,0)=control
thisform.cuadricula.textmatrix(i,1)=alltrim(cve_pptal)
thisform.cuadricula.textmatrix(i,2)=alltrim(partida)
thisform.cuadricula.textmatrix(i,3)=alltrim(fuente)
thisform.cuadricula.textmatrix(i,4)=importe
Endif
skip
enddo
Endif
p=len(alltrim(thisform.txt.value))thisform.CrearCuadriculaif p>0 go top i=0 do while .not. Eof() if upper(alltrim(thisform.txt.value))=str(control,p) thisform.Cuadricula.rows=thisform.cuadricula.rows+1 i=i+1 thisform.cuadricula.textmatrix(i,0)=control thisform.cuadricula.textmatrix(i,1)=alltrim(cve_pptal) thisform.cuadricula.textmatrix(i,2)=alltrim(partida) thisform.cuadricula.textmatrix(i,3)=alltrim(fuente) thisform.cuadricula.textmatrix(i,4)=importe endif skip enddoendif
lo que quiero es que al seleccionar el registro que quiero modificar en la cuadricula dandole doble click este me pase los valores a unos textbox que pondre abajo para asi poder modificar y despues actualizar esos datos, como puedo hacerlo
p=len(alltrim(thisform.txt.value))
thisform.CrearCuadricula
if p>0
go top
i=0
do while .not. Eof()
if upper(alltrim(thisform.txt.value))=str(control,p)
thisform.Cuadricula.rows=thisform.cuadricula.rows+1
i=i+1
thisform.cuadricula.textmatrix(i,0)=control
thisform.cuadricula.textmatrix(i,1)=alltrim(cve_pptal)
thisform.cuadricula.textmatrix(i,2)=alltrim(partida)
thisform.cuadricula.textmatrix(i,3)=alltrim(fuente)
thisform.cuadricula.textmatrix(i,4)=importe
Endif
skip
enddo
Endif
p=len(alltrim(thisform.txt.value))thisform.CrearCuadriculaif p>0 go top i=0 do while .not. Eof() if upper(alltrim(thisform.txt.value))=str(control,p) thisform.Cuadricula.rows=thisform.cuadricula.rows+1 i=i+1 thisform.cuadricula.textmatrix(i,0)=control thisform.cuadricula.textmatrix(i,1)=alltrim(cve_pptal) thisform.cuadricula.textmatrix(i,2)=alltrim(partida) thisform.cuadricula.textmatrix(i,3)=alltrim(fuente) thisform.cuadricula.textmatrix(i,4)=importe endif skip enddoendif
lo que quiero es que al seleccionar el registro que quiero modificar en la cuadricula dandole doble click este me pase los valores a unos textbox que pondre abajo para asi poder modificar y despues actualizar esos datos, como puedo hacerlo
1 respuesta
Respuesta de ravenn
1