Записи с помощью массива

[NuraPROG]

Доброго времени суток! у меня есть таблица bokovik в которой записаны имена таблиц,эти таблицы одинаковы по структуре и содержать информацию по разным показателям. и вот нужно последовательно открывать эти таблицы и вытаскивать оттуда значения столбца zn если munr и god равны edit-ам. и из каждой такой таблицы должна заполнится строка из Пустой таблицы.

with DataModule3.bokovik do begin
Active:= true;
while not eof do begin
  DataModule3.podstav.TableName:=datamodule3.bokovik.Fields[1].value  ;//вот интересует эта строка возможно ли так или это глупость
  DataModule3.podstav.Open;                                                             //будет ли открывать мне нужную таблицу
  with DataModule3.podstav do begin
   while not eof do begin
     If dataModule3.podstav.FieldByName(Munr)=edit1.Text and datamodule3.podstav.FieldByName(god)=edit2.text

Как это осуoествить с помощью for?

[Serge_Bliznykov]

я бы через запрос это делал:

DataModule3.bokovik.Open;
while not DataModule3.bokovik.Eof do begin
   Query1.Close;
   Query1.SQL.Text := 'Select zn from '+datamodule3.bokovik.Fields[1].AsString 
      + ' where Munr = :MunrParam and  god = :godParam';
   Query1.Prepared := true;
   Query1.ParamByName('MunrParam').Value := edit1.Text;
   Query1.ParamByName('godParam').Value := edit2.Text;
   Query1.Open;

   <тут делаете что надо с записями в Query1 - берите поле zn> 
   
   DataModule3.bokovik.Next;
end;

[NuraPROG]

Спасибо.Сейчас попробую. а еще вот такой вопрос. Я буду брать эти самые значения zn и мне нужно их в таблицу заполнить если в исходной таблице они представлялись в каждой строке каждый показатель zn а теперь это нужно развернуть и чтобы каждое zn шло по столбцам.