Ayuda con grid vfp 7.0
Hola experto espero me pueda ayudar Mi problema es que tengo dos grid juntos en un formulario pero lo que quiero hacer es que cuando le de click en un botón de comandos me mande el registro que esta seleccionado en el grid1 al grid2 pero solo el que este seleccionado en el grid1 y que se valla llenando el grid2 con los registros que valla seleccionando del grid1 y si también si es posible pasar con un botón (>>) todos los datos y con otro botón (<<) quitar los que agregue, cualquier ayuda o sugerencia sera de mucha ayuda si tienes ejemplos por favor este el mi mail [email protected] que me sera de mucha utilidad desde ya muchas gracias por tu ayuda
1 Respuesta
Respuesta de davsoft
1
No se si entendí bien tu pregunta, pero te prepare un código de ejemplo para que veas un ejemplo, es muy básico pero hace lo que necesitas, luego las validaciones que falten ya te serán fáciles. Debes seleccionarlo todo y copiarlo en un prg para ejecutarlo.
Saludos
c:\util\vfp\todoexpertos\grid2.jpg
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
**************************************************
*-- Form: form1 (c:\util\vfp\todoexpertos\grid2.scx)
*-- ParentClass: form
*-- BaseClass: form
*
DEFINE CLASS form1 AS form
Top = 62
Left = 86
Height = 300
Width = 815
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT grid1 AS grid WITH ;
Height = 200, ;
Left = 12, ;
Top = 60, ;
Width = 320, ;
Name = "Grid1"
ADD OBJECT grid2 AS grid WITH ;
Height = 200, ;
Left = 456, ;
Top = 60, ;
Width = 320, ;
Name = "Grid2"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 120, ;
Left = 348, ;
Height = 27, ;
Width = 84, ;
Caption = ">>", ;
Name = "Command1"
ADD OBJECT command2 AS commandbutton WITH ;
Top = 148, ;
Left = 348, ;
Height = 27, ;
Width = 84, ;
Caption = "<<", ;
Name = "Command2"
PROCEDURE Load
set delete on
create cursor x(campo1 c(30))
for c=1 to 7
se le x
append blank
replace campo1 with cdow(date()+c)
endfor
go top
create cursor y(campo1 c(30))
ENDPROC
PROCEDURE grid1.Init
this.recordsource = 'x'
ENDPROC
PROCEDURE grid2.Init
this.recordsource = 'y'
ENDPROC
PROCEDURE command1.Click
sele x
xDato = campo1
se le y
append blank
replace campo1 with xDato
ThisForm.Grid2.refresh
ENDPROC
PROCEDURE command2.Click
sele y
delete
ThisForm.Grid2.refresh
ENDPROC
ENDDEFINE
*
*-- EndDefine: form1
**************************************************
Saludos
c:\util\vfp\todoexpertos\grid2.jpg
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
**************************************************
*-- Form: form1 (c:\util\vfp\todoexpertos\grid2.scx)
*-- ParentClass: form
*-- BaseClass: form
*
DEFINE CLASS form1 AS form
Top = 62
Left = 86
Height = 300
Width = 815
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT grid1 AS grid WITH ;
Height = 200, ;
Left = 12, ;
Top = 60, ;
Width = 320, ;
Name = "Grid1"
ADD OBJECT grid2 AS grid WITH ;
Height = 200, ;
Left = 456, ;
Top = 60, ;
Width = 320, ;
Name = "Grid2"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 120, ;
Left = 348, ;
Height = 27, ;
Width = 84, ;
Caption = ">>", ;
Name = "Command1"
ADD OBJECT command2 AS commandbutton WITH ;
Top = 148, ;
Left = 348, ;
Height = 27, ;
Width = 84, ;
Caption = "<<", ;
Name = "Command2"
PROCEDURE Load
set delete on
create cursor x(campo1 c(30))
for c=1 to 7
se le x
append blank
replace campo1 with cdow(date()+c)
endfor
go top
create cursor y(campo1 c(30))
ENDPROC
PROCEDURE grid1.Init
this.recordsource = 'x'
ENDPROC
PROCEDURE grid2.Init
this.recordsource = 'y'
ENDPROC
PROCEDURE command1.Click
sele x
xDato = campo1
se le y
append blank
replace campo1 with xDato
ThisForm.Grid2.refresh
ENDPROC
PROCEDURE command2.Click
sele y
delete
ThisForm.Grid2.refresh
ENDPROC
ENDDEFINE
*
*-- EndDefine: form1
**************************************************
