А потому, что нельзя имя таблицы параметром передавать
Сделай так:
Код:
IBQ_CLK.SQL.Clear;
IBQ_CLK.SQL.Text:=Format('Select T_VALUE from %s where ID = :T_ID',['TARIF_BASE']);
IBQ_CLK.ParamByName('T_ID').AsInteger:=RadioGroup1.ItemIndex+1;
IBQ_CLK.Open;
Base:=IBQ_CLK.FieldByName('T_VALUE').AsCurrency;
IBQ_CLK.Close;
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.
Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
|