Versuch mit diesem
ÖFFENTLICHKEIT oform1
oform1=NEWOBJECT („form1“)
oform1.Show
RÜCKKEHR
KATEGORIE form1 ALS Form DEFINIEREN
Oberseite = -1
Links = 1
Höhe = 562
Breite = 997
DoCreate =. T.
Untertitel = „meine VFP Form“
Name = „Form1“
GEGENSTAND grid1 ALS Rasterfeld MIT HINZUFÜGEN;
ColumnCount = 3;
Höhe = 361;
Links = 84;
RecordSource = „Temp“;
Oberseite = 60;
Breite = 733;
Name = „Grid1“;
Column1.ControlSource = „temp.fld“;
Column1.Name = „Column1“;
Column2.ControlSource = „temp.check1“;
Column2.Name = „Column2“;
Column3.ControlSource = „temp.check2“;
Column3.Name = „Column3“
GEGENSTAND container1 ALS container1 MIT HINZUFÜGEN;
Oberseite = 432;
Links = 132;
Breite = 325;
Höhe = 61;
Name = „Container1“
VERFAHREN Last
TABELLE Temp (fld c (10), check1 L, check2 l) HERSTELLEN
FÜR i=1 BIS 1000
EINSATZ IN Temp WERTE (System (2015), RAND () >0.75, RAND () >.75)
ENDFOR
GEHEN OBERSEITE im Temp
ENDPROC
VERFAHREN grid1.AfterRowColChange
LPARAMETERS nColIndex
WENN this.RowColChange= 1 ODER this.RowColChange= 3
thisform.container1.Refresh
ENDIF
ENDPROC
ENDDEFINE
KATEGORIE container1 als Behälter DEFINIEREN
GEGENSTAND check1 ALS Checkbox MIT HINZUFÜGEN;
Oberseite = 12;
Links = 84;
Höhe = 17;
Breite = 60;
Ausrichtung = 0;
Untertitel = „Check1“;
ControlSource = „temp.check1“;
Name = „Check1“
GEGENSTAND check2 ALS Checkbox MIT HINZUFÜGEN;
Oberseite = 12;
Links = 180;
Höhe = 17;
Breite = 60;
Ausrichtung = 0;
Untertitel = „Check1“;
ControlSource = „temp.check2“;
Name = „Check2“
ENDDEFINE