Vraag : Bindende Gegevens aan Net

Hallo, heeft zekere

I am het eenvoudige…

I een Net op een vorm en recht onder Net zijn er weinig CheckBoxes. De vragen zijn:

- hoe selecteer ik een Rij in het Net? wanneer uitgezocht ik het gehele Rij zou moeten selecteren en in een verschillende color.
- op selectie van een Rij van het Net zou het de CheckBoxes status voor de huidige Rij selected.

Thanks moeten tonen!
SP

Antwoord : Bindende Gegevens aan Net

Probeer met dit

OPENBARE oform1

oform1=NEWOBJECT („form1“)
oform1.Show
TERUGKEER

DEFINI�ëR KLASSE form1 ALS vorm


      Bovenkant = -1
      Linkerzijde = 1
      Hoogte = 562
      Breedte = 997
      DoCreate =. T.
      Titel = „Mijn Vorm VFP“
      Naam = „Form1“


      VOEG VOORWERP grid1 ALS net MET toe;
            ColumnCount = 3;
            Hoogte = 361;
            Linkerzijde = 84;
            RecordSource = „temperaturen“;
            Bovenkant = 60;
            Breedte = 733;
            Naam = „Grid1“;
            Column1.ControlSource = „temp.fld“;
            Column1.Name = „Column1“;
            Column2.ControlSource = „temp.check1“;
            Column2.Name = „Column2“;
            Column3.ControlSource = „temp.check2“;
            Column3.Name = „Column3“




      VOEG VOORWERP container1 ALS container1 MET toe;
            Bovenkant = 432;
            Linkerzijde = 132;
            Breedte = 325;
            Hoogte = 61;
            Naam = „Container1“




      De Lading van de PROCEDURE
            CRE�ëR de temperaturen van de LIJST (fld c (10), check1 l, check2 l)
            VOOR i=1 AAN 1000
                  TUSSENVOEGSEL IN TEMPERATURENWAARDEN (SYS (2015), RAND () >0.75, RAND () >.75)
            ENDFOR
            GA HOOGSTE IN TEMPERATUREN
      ENDPROC


      PROCEDURE grid1.AfterRowColChange
            LPARAMETERS nColIndex
            ALS this.RowColChange= 1 OF this.RowColChange= 3
                  thisform.container1.Refresh
            ENDIF
      ENDPROC


ENDDEFINE

DEFINI�ëR KLASSE container1 als Container

      VOEG VOORWERP check1 ALS checkbox MET toe;
            Bovenkant = 12;
            Linkerzijde = 84;
            Hoogte = 17;
            Breedte = 60;
            Groepering = 0;
            Titel = „Check1“;
            ControlSource = „temp.check1“;
            Naam = „Check1“


      VOEG VOORWERP check2 ALS checkbox MET toe;
            Bovenkant = 12;
            Linkerzijde = 180;
            Hoogte = 17;
            Breedte = 60;
            Groepering = 0;
            Titel = „Check1“;
            ControlSource = „temp.check2“;
            Naam = „Check2“
ENDDEFINE