CellRevisionDimension(Row: Integer; Column: Integer): IDimInstance;
CellRevisionDimension[Row: Integer; Column: Integer]: Prognoz.Platform.Interop.Dimensions.IDimInstance;
Row. Row index.
Column. Column index.
The CellRevisionDimension property returns the dictionary that contains data on revisions for the defined cell.
To get the latest revision within which the cell data was edited, use the ILanerTable.CellRevision property.
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.
Executing the example requires a .NET form with the button1 button, the LanerBoxNet component and the UiErAnalyzerNet component with the uiErAnalyzerNet1 identifier that is a data source for LanerBoxNet. Workbook of the time series database must be loaded to uiErAnalyzerNet1.
This procedure is a handler of the Click event for the button1 button.
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Laner;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
Laner: ILaner;
LanTbl: ILanerTable;
RevDimInst: IDimInstance;
Atts: IDimAttributesInstance;
Elems: IDimElements;
i, j: integer;
Atr: IDimAttributeInstance;
Begin
Laner := uiErAnalyzerNet1.ErAnalyzer.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
System.Diagnostics.Debug.WriteLine("Element " + i.ToString());
For j := 0 To Atts.Count - 1 Do
Atr := Atts.Item[j];
System.Diagnostics.Debug.Write(Atr.Attribute.Name + ": ");
System.Diagnostics.Debug.WriteLine(Atr.Value[i As UInt32]);
End For;
System.Diagnostics.Debug.WriteLine("");
End For;
End Sub;
After executing the 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.
See also: