ITabRange.Value

Синтаксис Fore

Value: Variant;

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

Value: object;

Описание

Свойство Value определяет значение диапазона ячеек.

При изменении значения диапазона также будет изменен текст. Если для диапазона задается форматированный текст, то в свойстве Value можно получить его фактическое строковое представление без учета форматирования.

Значение свойства Value ячейки, для которой определен редактор, перед установкой проверяется на соответствие типу данных редактора. Значение, которое не соответствует типу данных редактора, не устанавливается. Редактор определяется свойством ITabCellStyle.Binding.

Пример Fore

Для выполнения примера в репозитории требуется наличие регламентного отчета с идентификатором «REG_REP».

Добавьте ссылки на системные сборки: Metabase, Report, Tab.

Sub UserProc;
Var
    MB: IMetabase;
    Regrep: IPrxReport;
    Sheet: IPrxSheet;
    Table: IPrxTable;
    Tsheet: ITabSheet;
    Column: ITabRange;
    i: Integer = 0;
Begin
    // Получаем текущий репозиторий
    MB := MetabaseClass.Active;
    // Получаем регламентный отчет
    Regrep := MB.ItemById("REG_REP").Edit As IPrxReport;
    // Получаем таблицу листа регламентного отчета
    Sheet := Regrep.Activesheet;
    Table := Sheet As IPrxTable;
    TSheet := Table.TabSheet;
    // Заполняем данными диапазон ячеек (A0:J9)
    While (i <= 9) Do
        Column := Tsheet.Cells(0, i, 9, i);
        i := i + 1;
        Column.Value := i;
    End While;
    (Regrep As IMetabaseObject).Save;
End Sub UserProc;

В результате выполнения примера ячейки диапазона (A0:J9) будут заполнены числами от 1 до 10.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;

…

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Regrep: IPrxReport;
    Sheet: IPrxSheet;
    Table: IPrxTable;
    Tsheet: ITabSheet;
    Column: ITabRange;
    i: integer = 0;
Begin
    // Получаем текущий репозиторий
    MB := Params.Metabase;
    // Получаем регламентный отчет
    Regrep := MB.ItemById["REG_REP"].Edit() As IPrxReport;
    // Получаем таблицу листа регламентного отчета
    Sheet := Regrep.Activesheet;
    Table := Sheet As IPrxTable;
    TSheet := Table.TabSheet;
    // Заполняем данными диапазон ячеек (A0:J9)
    While (i <= 9) Do
        Column := Tsheet.Cells[0, i, 9, i];
        i := i + 1;
        Column.Value := i;
    End While;
    (Regrep As IMetabaseObject).Save();
End Sub;

См. также:

ITabRange

Связанные записи: