ILanerTable.FootnoteValues

Fore Syntax

FootnoteValues(Row: Integer; Column: Integer): Array;

Fore.NET Syntax

FootnoteValues[Row: Integer; Column: Integer]: Array;

Parameters

Row. Index of the row, which contains a cell with data.

Column. Index of the column, which contains a cell with data.

Description

The FootnoteValues property returns an array containing values of the footnotes created for a cell with specified coordinates.

Comments

To create footnotes, determine the ILaner.ValueFootnoteAttributes property.

Fore Example

Executing the example requires that the repository contains a workbook with the WORKBOOK identifier. Footnotes for data cells are created in the workbook.

Sub UserProc;
Var
    MB: IMetabase;
    WbkObj: IMetabaseObject;
    Laner: ILaner;
    LanerTable: ILanerTable;
    r, c: Integer;
Begin
    //Get workbook
    MB := MetabaseClass.Active;
    WbkObj := MB.ItemById("WORKBOOK").Bind;
    Laner := (WbkObj As IEaxAnalyzer).Laner;
    //Calculate workbook
    LanerTable := Laner.Execute;
    //View footnote values
    For r := 0 To LanerTable.RowCount - 1 Do
        For c := 0 To LanerTable.ColumnCount - 1 Do
            Debug.WriteLine(LanerTable.FootnoteValues(r, c)[0])
        End For;
    End For;
End Sub UserProc;

On executing the example the development environment console displays the first footnotes added for data cells.

Fore.NET Example

The requirements and result of the Fore.NET example execution match with those in the Fore example.

Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Laner;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    WbkObj: IMetabaseObject;
    Laner: ILaner;
    LanerTable: ILanerTable;
    r, c: Integer;
Begin
    //Get workbook
    MB := Params.Metabase;
    WbkObj := MB.ItemById["WORKBOOK"].Bind();
    Laner := (WbkObj As IEaxAnalyzer).Laner;
    //Calculate workbook
    LanerTable := Laner.Execute();
    //View footnote values
    For r := 0 To LanerTable.RowCount - 1 Do
        For c := 0 To LanerTable.ColumnCount - 1 Do
            System.Diagnostics.Debug.WriteLine(LanerTable.FootnoteValues[r, c][0])
        End For;
    End For;
End Sub;