Next;
The Next method moves to the next record.
Executing the example requires that the repository contains a time series database with the OBJ_FC identifier. The database must have a time series attribute with the COUNTRY identifier.
Sub Main;
Var
MB: IMetabase;
RubDesc: IMetabaseObjectDescriptor;
RubrIn: IRubricatorInstance;
DictInst: IMetaDictionaryInstance;
MetaDLookup: IMetaDictionaryLookup;
Conditions: IOrmConditions;
Cond: IOrmCondition;
Current: IMetaDictionaryData;
Begin
MB := MetabaseClass.Active;
RubDesc := MB.ItemById("OBJ_FC");
RubrIn := RubDesc.Open(Null) As IRubricatorInstance;
DictInst := RubrIn.Facts;
MetaDLookup := DictInst.CreateLookup("");
Conditions := MetaDLookup.Where;
Cond := Conditions.Add;
Cond.AttributeName := "COUNTRY";
Cond.Value := 512;
MetaDLookup.Open(DictionaryCursorOptions.None);
While Not MetaDLookup.Eof Do
Current := MetaDLookup.Current;
Debug.WriteLine(Current.Record.Key.ToString);
MetaDLookup.Next;
End While;
MetaDLookup.Close;
End Sub Main;
After executing the example, record keys that meet the following conditions are displayed in the console window: value of the COUNTRIES attribute equals to 512 in a factor.
See also: