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