#1 27.09.10 12:50
Delphi & BDE
Код::
procedure TEditFlgForm.Button1Click(Sender: TObject);
begin
if Dm.FLG.FieldByName('Soc').Value = null then
begin
MessageDlg('Íåçàïîëåíî ïîëå Öåëü!', mtError, [mbNo], 0);
Exit;
end;
Dm.FLG.Append;
Dm.FLG.FieldByName('Doza').AsInteger := PatientId;
Dm.FLG.Post;
Close;
end;выбираю в Dblookupcombox нужное поле .. это поле хочу записать в таблицу..как записать?
раньше пробывал чз look связывал пустое поле в табл FLG c полем из таблици SocSt что бы в комбоксе отображалось имя а не эти цифры=)..в комбоксе Look менял и соответственно пустое поле которое связанно c look тоже менялось и записывалось в таблицу..щас в код запутан и ничё понять не могу почему ничего не записывается в таблицу.помогите плз=)
надеюсь понятно объяснил-_-
Исправлено uN][t (27.09.10 12:51)
Offline

