IMsExpressionEdit.AddStub

Синтаксис Fore

AddStub(Name: String; Stub: IVariableStub);

Синтаксис Fore.NET

AddStub(Name: string; Stub: Prognoz.Platform.Interop.Cube.IVariableStub);

Параметры

Name. Наименование куба;

Stub. Добавляемый куб.

Описание

Метод AddStub добавляет куб в качестве источника данных MsExpressionEdit.

Комментарии

Для использования фактов куба в выражении:

  1. введите наименование куба, заданное параметром Name;

  2. поставьте знак «!»;

  3. нажмите сочетание клавиш CTRL + Пробел;

  4. будет отображен раскрывающийся список, содержащий факты куба. Выберите требуемый факт.

Выбранный факт будет вставлен в выражение MsExpressionEdit.

Пример Fore

Для выполнения примера предполагается наличие формы, содержащей компонент MsExpressionEdit с идентификатором «MsExpressionEdit1». В репозитории предполагается наличие куба с идентификатором «CUBE».

Добавьте ссылки на системные сборки «Cubes», «Metabase».

Sub UserProc;
Var
    mb: IMetabase;
    Stub: IVariableStub;
Begin
    mb := MetabaseClass.Active;
    // Получаем куб
    Stub := mb.ItemById("CUBE").Bind As IVariableStub;
    // Подключаем куб в «MsExpressionEdit1»
    MsExpressionEdit1.AddStub("Куб", Stub);
    // Устанавливаем режим отображения операндов
    MsExpressionEdit1.UseFullVariableNames := True;
End Sub UserProc;

Результат выполнения примера: в выражении «MsExpressionEdit1» будет доступно использование фактов куба «CUBE», наименования операндов будут отображаться в полном виде.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Imports Prognoz.Platform.Interop.Cubes;
…
Public Sub UserProc();
Var
    mb: IMetabase;
    Stub: IVariableStub;
Begin
    mb := Self.Metabase;
    // Получаем куб
    Stub := mb.ItemById["CUBE"].Bind() As IVariableStub;
    // Подключаем куб в «MsExpressionEdit1»
    msExpressionEditNet1.CtrlBox.AddStub("Куб", Stub);
    // Устанавливаем режим отображения операндов
    msExpressionEditNet1.CtrlBox.UseFullVariableNames := True;
End Sub UserProc;

См. также:

IMsExpressionEdit