Cuestión : Datos obligatorios a la rejilla

Hola, el

I un un…

I tiene sure una rejilla en una forma y la derecha debajo de la rejilla allí es pocos CheckBoxes. Las preguntas son: ¿

- cómo selecciono una fila en la rejilla? ¡cuando la selecciono debo seleccionar fila entera y en un diverso color.
- en la selección de una fila de la rejilla debe exhibir los CheckBoxes que el estado para el actual rema selected.

Thanks!
SP class= del

Respuesta : Datos obligatorios a la rejilla

Intento con esto

PÚBLICO oform1

oform1=NEWOBJECT (“form1”)
oform1.Show
VUELTA

DEFINIR LA CLASE form1 COMO forma


      Tapa = -1
      Izquierda = 1
      Altura = 562
      Anchura = 997
      DoCreate =. T.
      Subtítulo = “mi forma de VFP”
      Nombre = “Form1”


      AGREGAR EL OBJETO grid1 COMO rejilla CON;
            ColumnCount = 3;
            Altura = 361;
            Izquierda = 84;
            RecordSource = “temp”;
            Tapa = 60;
            Anchura = 733;
            Nombre = “Grid1”;
            Column1.ControlSource = “temp.fld”;
            Column1.Name = “Column1”;
            Column2.ControlSource = “temp.check1”;
            Column2.Name = “Column2”;
            Column3.ControlSource = “temp.check2”;
            Column3.Name = “Column3”




      AGREGAR EL OBJETO container1 COMO container1 CON;
            Tapa = 432;
            Izquierda = 132;
            Anchura = 325;
            Altura = 61;
            Nombre = “Container1”




      Carga del PROCEDIMIENTO
            CREAR a temp de la TABLA (fld c (10), check1 l, check2 l)
            PARA i=1 a 1000
                  PARTE MOVIBLE EN LOS VALORES del temp (sistema (2015), RAND () >0.75, RAND () >.75)
            ENDFOR
            VA LA TAPA EN temp
      ENDPROC


      PROCEDIMIENTO grid1.AfterRowColChange
            nColIndex de LPARAMETERS
            SI this.RowColChange= 1 O this.RowColChange= 3
                  thisform.container1.Refresh
            ENDIF
      ENDPROC


ENDDEFINE

DEFINIR LA CLASE container1 como envase

      AGREGAR EL OBJETO check1 COMO checkbox CON;
            Tapa = 12;
            Izquierda = 84;
            Altura = 17;
            Anchura = 60;
            Alineación = 0;
            Subtítulo = “Check1”;
            ControlSource = “temp.check1”;
            Nombre = “Check1”


      AGREGAR EL OBJETO check2 COMO checkbox CON;
            Tapa = 12;
            Izquierda = 180;
            Altura = 17;
            Anchura = 60;
            Alineación = 0;
            Subtítulo = “Check1”;
            ControlSource = “temp.check2”;
            Nombre = “Check2”
ENDDEFINE