FitTo: IPrxDataIsland;
Свойство FitTo определяет область данных с которой будет производиться согласование по строкам/столбцам.
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Report: IPrxReport;
DIs: IPrxDataIslands;
DI, DI1: IPrxDataIsland;
Prop: IPrxDataIslandProperties;
THead: IPrxDataIslandHeader;
Begin
MB:=MetabaseClass.Active;
MObj:=MB.ItemById("Report").Edit;
Report:=MObj As IPrxReport;
DIs:=Report.DataIslands;
DI1:=DIs.Item(1);
DI:=DIs.Item(0).Edit;
Prop:=DI.Properties;
THead:=Prop.TopHeader;
If THead.CanFitTo(DI1) Then
THead.FitTo:=DI1;
End If;
DI.Save;
End Sub Main;
После выполнения примера для столбцов первой области данных будет установлено согласование со столбцами второй области данных, если это возможно. Идентификатор регламентного отчета - «Report».
См. также: