Count: Integer;
Свойство Count возвращает количество рядов сцены.
Для выполнения примера предполагается наличие регламентного отчета с идентификатором «REGULAR_REPORT», на листе которого расположена трёхмерная сцена с несколькими рядами данных и данные в ячейках диапазона «В1:D4». Подключите системные сборки: Metabase, Report, Tab, Chart.
Sub UserProc;
Var
Report: IPrxReport;
S: IPrxScene3D;
Sers: IPrxScene3DSeries;
Ser: IPrxScene3DPointSerie;
MB: IMetabase;
Tab: ITabSheet;
Begin
MB := MetabaseClass.Active;
Report := MB.ItemById("REGULAR_REPORT").Edit As IPrxReport;
Tab := (Report.Sheets.Item(0) As IPRxTable).TabSheet;
S := Tab.Objects.Item(0).Extension As IPrxScene3D;
Sers := S.Series;
Ser := Sers.Item(0) As IPrxScene3DPointSerie;
Ser.X := "B1:B4";
Ser.Y := "C1:C4";
Ser.Z := "D1:D4";
Tab.CellValue(1, 6) := Sers.Count;
Debug.WriteLine("Тип ряда сцены по найденному ключу имеет тип: " + Sers.FindByKey(Sers.Item(0).Key).Type.ToString);
(Report As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера в регламентном отчете изменится первый ряд трёхмерной сцены и в ячейке G1 будет выведено количество рядов. В окне консоли появится тип найденного ряда сцены.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Chart;
Public Shared Sub Main(Params: StartParams);
Var
Report: IPrxReport;
S: IPrxScene3D;
Sers: IPrxScene3DSeries;
Ser: IPrxScene3DPointSerie;
MB: IMetabase;
Tab: ITabSheet;
Begin
MB := Params.Metabase;
Report := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
Tab := (Report.Sheets.Item[0] As IPRxTable).TabSheet;
S := Tab.Objects.Item[0].Extension As IPrxScene3D;
Sers := S.Series;
Ser := Sers.Item[0] As IPrxScene3DPointSerie;
Ser.X := "B1:B4";
Ser.Y := "C1:C4";
Ser.Z := "D1:D4";
Tab.CellValue[1, 6] := Sers.Count;
System.Diagnostics.Debug.WriteLine("Тип ряда сцены по найденному ключу имеет тип: " + Sers.FindByKey(Sers.Item[0].Key).Type.ToString());
(Report As IMetabaseObject).Save();
End Sub;
См. также: