IDatasetInstance.Next

Синтаксис Fore

Next;

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

Next();

Описание

Метод Next осуществляет переход на следующую запись в источнике данных.

Пример Fore

Для выполнения примера предполагается наличие в репозитории таблицы с идентификатором «T_Data», в таблице имеется поле с идентификатором «Value». Добавьте ссылки на системные сборки Db и Metabase.

Sub UserSample;
Var
    MB: IMetabase;
    DSInst: IDatasetInstance;
    Fields: IDatasetInstanceFields;
    Field: IDatasetInstanceField;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    DSInst := MB.ItemById("T_Data").Open(Null) As IDatasetInstance;
    Fields := DSInst.Fields;
    Field := Fields.FindById("Value");
    While Not DSInst.Eof Do
        i := i + 1;
        Debug.WriteLine("Номер: " + i.ToString + "; Значение: " + Field.Value);
        DSInst.Next;
    End While;
End Sub UserSample;

После выполнения примера в переменной «i» будет содержаться количество записей источника данных. Номера записей и значения поля «Value» будут выведены в консоль среды разработки.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Db;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    DSInst: IDatasetInstance;
    Fields: IDatasetInstanceFields;
    Field: IDatasetInstanceField;
    i: Integer;
Begin
    MB := Params.Metabase;
    DSInst := MB.ItemById["T_Data"].Open(Null) As IDatasetInstance;
    Fields := DSInst.Fields;
    Field := Fields.FindById("Value");
    While Not DSInst.Eof() Do
        i := i + 1;
        System.Diagnostics.Debug.WriteLine("Номер: " + i.ToString() + "; Значение: " + Field.Value);
        DSInst.Next();
    End While;
End Sub;

См. также:

IDatasetInstance