Prova con questo
PUBBLICO oform1
oform1=NEWOBJECT (“form1„)
oform1.Show
RITORNO
DEFINIRE IL CODICE CATEGORIA form1 COME forma
Parte superiore = -1
Parte di sinistra = 1
Altezza = 562
Larghezza = 997
DoCreate =. T.
Titolo = “la mia forma di VFP„
Nome = “Form1„
AGGIUNGERE L'OGGETTO grid1 COME griglia CON;
ColumnCount = 3;
Altezza = 361;
Parte di sinistra = 84;
RecordSource = “temp„;
Parte superiore = 60;
Larghezza = 733;
Nome = “Grid1„;
Column1.ControlSource = “temp.fld„;
Column1.Name = “Column1„;
Column2.ControlSource = “temp.check1„;
Column2.Name = “Column2„;
Column3.ControlSource = “temp.check2„;
Column3.Name = “Column3„
AGGIUNGERE L'OGGETTO container1 COME container1 CON;
Parte superiore = 432;
Parte di sinistra = 132;
Larghezza = 325;
Altezza = 61;
Nome = “Container1„
Carico di PROCEDURA
GENERARE il temp della TABELLA (fld c (10), check1 l, check2 l)
PER i=1 a 1000
INSERTO NEI VALORI del temp (sistema (2015), BORDO () >0.75, BORDO () >.75)
ENDFOR
VA LA PARTE SUPERIORE in temp
ENDPROC
PROCEDURA grid1.AfterRowColChange
nColIndex di LPARAMETERS
SE this.RowColChange= 1 O this.RowColChange= 3
thisform.container1.Refresh
ENDIF
ENDPROC
ENDDEFINE
DEFINIRE IL CODICE CATEGORIA container1 come contenitore
AGGIUNGERE L'OGGETTO check1 COME scatola di controllo CON;
Parte superiore = 12;
Parte di sinistra = 84;
Altezza = 17;
Larghezza = 60;
Allineamento = 0;
Titolo = “Check1„;
ControlSource = “temp.check1„;
Nome = “Check1„
AGGIUNGERE L'OGGETTO check2 COME scatola di controllo CON;
Parte superiore = 12;
Parte di sinistra = 180;
Altezza = 17;
Larghezza = 60;
Allineamento = 0;
Titolo = “Check1„;
ControlSource = “temp.check2„;
Nome = “Check2„
ENDDEFINE