ILanerTable.CellRevisionDimension

Syntax

CellRevisionDimension(Row: Integer; Column: Integer): IDimInstance;

Parameters

Row. Row index.

Column. Column index.

Description

The CellRevisionDimension property returns the dictionary that contains data on revisions for the defined cell.

Comments

To get the latest revision within which the cell data was edited, use the ILanerTable.CellRevision property.

Example

Executing the example requires a form with the Button1 button, the LanerBox component and the UiErAnalyzer component with the UiErAnalyzer1 identifier, that is a data source for LanerBox. Workbook of the time series database must be loaded to UiErAnalyzer1. Add references to the Dimensions system assembly.

The procedure is a handler of the OnClick event for the Button1 button.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Laner: ILaner;
    LanTbl: ILanerTable;
    RevDimInst: IDimInstance;
    Atts: IDimAttributesInstance;

    Elems: IDimElements;
    i, j: Integer;
    Atr: IDimAttributeInstance;
Begin
    Laner := UiErAnalyzer1.ErAnalyzer.Laner;
    LanTbl := Laner.Execute;
    // Get revision dictionary
    RevDimInst := LanTbl.CellRevisionDimension(0, 0);
    // Get attributes of the revision dictionary
    Atts := RevDimInst.Attributes;
    // Get elements of the revision dictionary
    Elems := RevDimInst.Elements;
    // Show revision dictionary in the console window
    For i := 0 To Elems.Count - 1 Do
        Debug.WriteLine("Element " + i.ToString);
        For j := 0 To Atts.Count - 1 Do
            Atr := Atts.Item(j);
            Debug.Write(Atr.Attribute.Name + ": ");
            Debug.WriteLine(Atr.Value(i));
        End For;
        Debug.WriteLine("");
    End For;
End Sub Button1OnClick;

After executing this example the console window shows the dictionary that contains data on revisions for the cell in the first row and the first column of the loaded workbook.