Выпадающий список в таблице БД

[BarD]

Ругается на строку
KeyFields:='idManager';
Пишет что такого поля в таблице нет, хотя оно присутствует (имя конечно у меня свое).
Может быть поле должно быть определено каким-то конкретным способом ?
Оно у меня задается из программы SQL запросом, тип SMALLINT

[Domovoy]

Выложи код.

[BarD]

Создание основной таблицы:

procedure CreateTableSportsmen();
begin
DBModule.SQLCommand.CommandText:='CREATE TABLE Sportsmen ([ФИО] CHAR(30), [Команда] SMALLINT);';
DBModule.SQLCommand.Execute();
DBModule.SQLCommand.CommandText:='CREATE INDEX TeamIndex ON Sportsmen (Команда);';
DBModule.SQLCommand.Execute();
end;

Создание дочерней таблицы:

procedure CreateTableTeams();
begin
DBModule.SQLCommand.CommandText:='CREATE TABLE Teams ([Ключ] COUNTER PRIMARY KEY, Команда CHAR(30));';
DBModule.SQLCommand.Execute();
end;

Кнопка в меню:

procedure TMainForm.N2Click(Sender: TObject);
var
BaseName:string;
F:TField;
begin
//установка связи с БД
if MainForm.DBSaveDialog.Execute then
  begin
  BaseName:= MainForm.DBSaveDialog.FileName;
  SetConnection(DBModule.DBConnection,BaseName);

  //Таблица со списком Команд
  ListForm.TableList.TableName:='Teams';
  ListForm.Show;

  //Основная таблица, где должен быть выпадающий список
  MainForm.TableTeam.Close;
  MainForm.TableTeam.TableName:='Sportsmen';
  MainForm.TableTeam.FieldDefs.Update;
  F:=TStringField.Create(MainForm.TableTeam);
  with F do
    begin
    FieldName:='LookUp';
    DisplayLabel:='LookUp';
    FieldKind:=fkLookup;
    DisplayWidth:=50;
    DataSet:=MainForm.TableTeam;
    LookupDataSet:=ListForm.TableList;
    KeyFields:='Команда';
    LookupKeyFields:='Ключ';
    LookupResultField:='Команда';
    end;

  MainForm.TableTeam.Open;
  MainForm.TeamGrid.Visible:=true;
  end;
end;

Выдает ошибку: TableTeam: Field 'Команда' not found.

[Domovoy]

procedure TMainForm.N2Click(Sender: TObject);
var
  BaseName:string;
  F:TField;
  i:integer;
begin
//установка связи с БД
if MainForm.DBSaveDialog.Execute then
  begin
    BaseName:= MainForm.DBSaveDialog.FileName;
    SetConnection(DBModule.DBConnection,BaseName);
    //Таблица со списком Команд
    ListForm.TableList.TableName:='Teams';
    ListForm.Show;

    //Основная таблица, где должен быть выпадающий список
    MainForm.TableTeam.Close;
    MainForm.TableTeam.TableName:='Sportsmen';
    MainForm.TableTeam.FieldDefs.Update;
    for i:=0 to MainForm.TableTeam.FieldDefs.Count-1 do
      try
        MainForm.TableTeam.FieldDefs[I].CreateField(MainForm.TableTeam);
      except;
      end;
    F:=TStringField.Create(MainForm.TableTeam);
    with F do
    begin
      FieldName:='LookUp';
      DisplayLabel:='LookUp';
      FieldKind:=fkLookup;
      DisplayWidth:=50;
      DataSet:=MainForm.TableTeam;
      LookupDataSet:=ListForm.TableList;
      KeyFields:='Команда';
      LookupKeyFields:='Ключ';
      LookupResultField:='Команда';
    end;
    MainForm.TableTeam.Open;
    MainForm.TeamGrid.Visible:=true;
  end;
end;

Вот так должно работать

[BarD]

Спасибо, заработало