DataRights(Row: Integer; Column: Integer): CubeDataRights;
Row. Индекс строки.
Column. Индекс столбца.
Свойство DataRights возвращает права доступа на данные указанной ячейки.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBox и компонента UiErAnalyzer с наименованием «UiErAnalyzer1», являющегося источником данных для TabSheetBox. В «UiErAnalyzer1» должна быть загружена рабочая книга базы данных временных рядов.
Пример будет выполняться при нажатии на кнопку.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
EaxAn: IEaxAnalyzer;
Laner: ILaner;
Tbl: ILanerTable;
Col, Row: Integer;
Begin
EaxAn := UiErAnalyzer1.ErAnalyzer;
Laner := EaxAn.Laner;
Tbl := laner.Execute;
Tbl.Edit;
For Col := 0 To Tbl.ColumnCount - 1 Do
For Row := 0 To Tbl.RowCount - 1 Do
If Tbl.DataRights(Row, Col) = CubeDataRights.ReadWrite Then
Tbl.Cell(Row, Col) := Math.RandBetweenI(0, 5);
End If;
End For;
End For;
End Sub Button1OnClick;
После выполнения примера данные в ячейках таблицы будут изменены, если к ним есть доступ для чтения и изменения.
См. также: