FoxPro/Visual FoxPro - Re: Urgente

cheka este ejemplo

CLOSE ALL
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer IN 0

frmMyForm = CREATEOBJECT('Form')
frmMyForm.Closable = .F.
frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn')
frmMyForm.AddObject('grdGrid1','Grid')
frmMyForm.grdGrid1.Left = 25
frmMyForm.grdGrid1.SetAll("DynamicBackColor",;
"IIF(MOD(RECNO( ), 2)=0, RGB(255,255,255) ;
, RGB(0,255,0))", "Column")
frmMyForm.grdGrid1.Visible = .T.
frmMyForm.cmdCommand1.Visible =.T.
frmMyForm.grdGrid1.Column1.Header1.Caption = 'Customer ID'
frmMyForm.SHOW
READ EVENTS

DEFINE CLASS cmdMyCmdBtn AS CommandButton
Caption = '\<Salir'
Cancel = .T.
Left = 125
Top = 210
Height = 25

PROCEDURE Click
CLEAR EVENTS
CLOSE ALL
ENDDEFINE