FindById(Id: Integer): ITableForeignKey;
FindById(Id: integer): Prognoz.Platform.Interop.Db.ITableForeignKey;
Id. Идентификатор внешнего ключа.
Метод FindById выполняет поиск внешнего ключа в коллекции по его идентификатору.
Если внешний ключ с указанным идентификатором не найден, то метод возвращает значение Null.
Для выполнения примера в репозитории предполагается наличие таблицы с идентификатором «TABLE_L».
Добавьте ссылки на системные сборки «Metabase», «Db».
Sub UserProc;
Var
mb: IMetabase;
Table: ITable;
FKeys: ITableForeignKeys;
Key: ITableForeignKey;
Begin
mb := MetabaseClass.Active;
Table := mb.ItemById("TABLE_L").Bind As ITable;
FKeys := Table.ForeignKeys;
If FKeys.Count > 0 Then
Key := FKeys.FindById("FK");
If Key <> Null Then
Debug.WriteLine(Key.Name);
End If;
End If;
End Sub UserProc;
После выполнения примера в таблице «TABLE_L» будет выполнен поиск внешнего ключа с идентификатором «FK». Если ключ будет найден, то его наименование будет выведено в окно консоли.
Для выполнения примера в репозитории предполагается наличие таблицы с идентификатором «TABLE_L».
Imports Prognoz.Platform.Interop.Db;
…
[STAThread]
Public Shared Sub Main(Params: StartParams);
Var
mb: IMetabase;
Table: ITable;
FKeys: ITableForeignKeys;
Key: ITableForeignKey;
Begin
mb := Params.Metabase;
Table := mb.ItemById["TABLE_L"].Bind() As ITable;
FKeys := Table.ForeignKeys;
If FKeys.Count > 0 Then
Key := FKeys.FindById("FK");
If Key <> Null Then
System.Diagnostics.Debug.WriteLine(Key.Name);
End If;
End If;
End Sub;
После выполнения примера в таблице «TABLE_L» будет выполнен поиск внешнего ключа с идентификатором «FK». Если ключ будет найден, то его наименование будет выведено в окно консоли.
См. также: