Помогите пожалуйста, это срочно. Изменение query.fieldbyname

49K

11 июня 2009 года

2 / / 10.06.2009

Здравствуйте.
Срочно нужна помощь. То что ниже выделено оранжевым должно работать. Но мне пишет ошибку: IBQUERY3:FIELD 'OST' NOT FOUND

Вот текст кнопки:

Свернуть исходник

Код:

procedure TForm2.Button2Click(Sender: TObject);

var a,b:integer;

begin

a:=dm.IBQuery3.Fieldbyname('ost').AsInteger-strtoint(Edit2.Text);

b:=dm.IBQuery3.Fieldbyname('Nz').AsInteger;

dm.IBQuery3.Close;

dm.IBQuery3.SQL.Clear;

dm.IBQuery3.SQL.Add(RE6.text);

dm.IBQuery3.Params[0].AsInteger:=a;

dm.IBQuery3.Params[1].AsInteger:=b;

dm.IBQuery3.ExecSQL;

{If dm.IBQuery3.Fieldbyname('Ost').asInteger<=strtoint('0') then

begin

dm.IBQuery3.Fieldbyname('Summ').asInteger:=strtoint(Edit3.Text );

dm.IBQuery3.Fieldbyname('Ost').asInteger:= strtoint(Edit3.Text );

dm.IBQuery3.Fieldbyname('Nalc').asString:= 'не имеется';

end else begin

dm.IBQuery3.Fieldbyname('Nalc').asString:= 'имеется';

end;}

dm.IBQuery3.Close;

dm.IBQuery3.SQL.Clear;

dm.IBQuery3.SQL.Add('select *');

dm.IBQuery3.SQL.Add('from Nal');

dm.IBQuery3.Open;

 end;