ActionType: TabHyperlinkActionType;
ActionType: Prognoz.Platform.Interop.Tab.TabHyperlinkActionType;
Свойство ActionType определяет тип действия, выполняемого при щелчке по гиперссылке.
В рассматриваемом примере предполагается существование объекта Report типа IPrxReport.
Sub main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Rep: IPrxReport;
Tab: ITabSheet;
Range: ITabRange;
Hyperlink: ITabHyperlink;
Begin
MB:= MetabaseClass.Active;
MObj:= MB.ItemById("REGULAR_REPORT").Edit;
Rep:= MObj As IPrxReport;
Tab:= (Rep.ActiveSheet As IprxTable).TabSheet;
Range:= Tab.Cell(0, 0);
Hyperlink:= Range.Style.Hyperlink;
Hyperlink.Action:= "=Лист2";
Hyperlink.ActionType:= TabHyperlinkActionType.GoToSheet;
Hyperlink.Enable:= TriState.OnOption;
Hyperlink.SeparateLinkText:= TriState.OnOption;
Hyperlink.Text:= "Goto_List2";
MObj.Save;
End Sub main;
После выполнения примера при щелчке по гиперссылке будет выполнен переход к листу отчета «Лист2».
В рассматриваемом примере предполагается существование объекта Report типа IPrxReport.
...
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.ForeSystem;
Public Shared Sub Main(Params : StartParams);
Var
MB: IMetabase;
MObj: IMetabaseObject;
Rep: IPrxReport;
Tab: ITabSheet;
Range: ITabRange;
Hyperlink: ITabHyperlink;
Begin
MB:= Params.Metabase;
MObj:= MB.ItemById ["REGULAR_REPORT"].Edit();
Rep:= MObj As IPrxReport;
Tab:= (Rep.ActiveSheet As IprxTable).TabSheet;
Range:= Tab.Cell[0, 0];
Hyperlink:= Range.Style.Hyperlink;
Hyperlink.Action:= "=Лист2";
Hyperlink.ActionType:= TabHyperlinkActionType.thatGoToSheet;
Hyperlink.Enable:= TriState.tsOnOption;
Hyperlink.SeparateLinkText:= TriState.tsOnOption;
Hyperlink.Text:= "Goto_List2";
MObj.Save();
End Sub;
После выполнения примера при щелчке по гиперссылке будет выполнен переход к листу отчета «Лист2».
См. также: