[Vongud]

Как можно программно подставить поле в DBEdit? БД Access. Вот кусок кода.

Код:

procedure TFEditTchmi.TNChange(Sender: TObject);  //FEditTchmi-это форма
begin
  if Tchm.Checked then   //Tchm-это RadioButton
  begin
    TN.DataSource := DM1.DSTchm; //TN-это DBEdit
    TN.DataField := String(TN);  //пробовал и без String, ошибка несоответствия полей
  end;
end;

Вообщем ситуёвина такая-у меня через радиобаттон должны переключаться таблицы (всего две). И в зависимости от выбранной таблицы в дбэдитах должны отображаться данные из соответствующей таблице. Также на форме есть дбгрид, так там я настроил, а с дбэдитами не могу разобраться. Такое чувство, что свойство DataField не открывается. Там, после того, как в DataSource должна открыться таблица DSTchm, появится поле TN. Вот код для дбгрида:

Код:

procedure TFEditTchmi.TchmClick(Sender: TObject);
begin

if
 Tchm.Checked = true then
 DM1.ADOQueryTchm.SQL.Clear;
 DM1.ADOQueryTchm.SQL.Add('SELECT TN AS [Таб №], Name1 AS [Фамилия] FROM Tchm ORDER BY Name1');
 DBGrEditTchmi.DataSource := DM1.DSTchm; //DBGrEditTchmi-это дбгрид
 DM1.ADOQueryTchm.Open;
end;

procedure TFEditTchmi.TchmpClick(Sender: TObject);
begin
if
 Tchmp.Checked = true then
 DM1.ADOQueryTchmp.SQL.Clear;
 DM1.ADOQueryTchmp.SQL.Add('SELECT TN AS [Таб №], Name1 AS [Фамилия] FROM Tchmp ORDER BY Name1');
 DBGrEditTchmi.DataSource := DM1.DSTchmp;
 DM1.ADOQueryTchmp.Open;
end;

Админ: Пользумся тегом CODE

[NumLock]

DataField содержит имя поля, имеет строковый тип.