IPrxTable.DataBinding

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    SheetT: IPrxTable;
    Slice: IPrxSlice;
    DataS: IPrxDataSource;
    Sel: IDimSelectionSet;
    Range: ITabRange;
    Result: boolean;
Begin
    MB := MetabaseClass.Active;
    Report := MB.ItemById("REPORT").Bind As IPrxReport;
    DataS := Report.DataSources.Item(0);
    Slice := DataS.Slices.Item(0);
    Sel := Slice.Selection;
    SheetT := Report.Sheets.Item(0) As IPrxTable;
    Range := SheetT.TabSheet.Cells(0, 0, 3, 2);
    Result := SheetT.DataBinding.AttachRange(Range, Slice, Sel);
    If Result Then
        WinApplication.InformationBox("Привязка осуществлена");
    Else
        WinApplication.InformationBox("Привязка не осуществлена");
    End If;
End Sub UserProc;