Вопрос : Binding данные к решетке

Hi,

I am конечно оно просто одно…

I имеет решетку на форме и правом под решеткой там будет немногие CheckBoxes. Вопросы являются следующими:

- как я выбираю рядок в решетке? когда я выбираю его должен выбрать весь рядок и в по-разному color.
- на выборе рядка решетки он должен показать CheckBoxes, котор состояние для в настоящее время гребет selected.

Thanks!
SP class=

Ответ : Binding данные к решетке

Попытка с этим

ПУБЛИКА oform1

oform1=NEWOBJECT («form1»)
oform1.Show
ВОЗВРАЩЕНИЕ

ОПРЕДЕЛИТЕ ТИП form1 КАК форма


      Верхняя часть = -1
      Левая сторона = 1
      Высота = 562
      Ширина = 997
      DoCreate =. T.
      Титр = «моя форма VFP»
      Имя = «Form1»


      ДОБАВЬТЕ ПРЕДМЕТ grid1 КАК решетка С;
            ColumnCount = 3;
            Высота = 361;
            Левая сторона = 84;
            RecordSource = «temp»;
            Верхняя часть = 60;
            Ширина = 733;
            Имя = «Grid1»;
            Column1.ControlSource = «temp.fld»;
            Column1.Name = «Column1»;
            Column2.ControlSource = «temp.check1»;
            Column2.Name = «Column2»;
            Column3.ControlSource = «temp.check2»;
            Column3.Name = «Column3»




      ДОБАВЬТЕ ПРЕДМЕТ container1 КАК container1 С;
            Верхняя часть = 432;
            Левая сторона = 132;
            Ширина = 325;
            Высота = 61;
            Имя = «Container1»




      Нагрузка ПРОЦЕДУРЫ
            СОЗДАЙТЕ temp ТАБЛИЦЫ (fld c (10), check1 l, check2 l)
            ДЛЯ i=1 ДО 1000
                  ВСТАВКА В ЗНАЧЕНИЯ temp (SYS (2015), РАНД () >0.75, РАНД () >.75)
            ENDFOR
            ИДЕТ ВЕРХНЯЯ ЧАСТЬ В temp
      ENDPROC


      ПРОЦЕДУРА grid1.AfterRowColChange
            nColIndex LPARAMETERS
            ЕСЛИ this.RowColChange= 1 ИЛИ this.RowColChange= 3
                  thisform.container1.Refresh
            ENDIF
      ENDPROC


ENDDEFINE

ОПРЕДЕЛИТЕ ТИП container1 как контейнер

      ДОБАВЬТЕ ПРЕДМЕТ check1 КАК checkbox С;
            Верхняя часть = 12;
            Левая сторона = 84;
            Высота = 17;
            Ширина = 60;
            Выравнивание = 0;
            Титр = «Check1»;
            ControlSource = «temp.check1»;
            Имя = «Check1»


      ДОБАВЬТЕ ПРЕДМЕТ check2 КАК checkbox С;
            Верхняя часть = 12;
            Левая сторона = 180;
            Высота = 17;
            Ширина = 60;
            Выравнивание = 0;
            Титр = «Check1»;
            ControlSource = «temp.check2»;
            Имя = «Check2»
ENDDEFINE