dm.qryTemp.close;
    dm.qryTemp.SQL.clear;
    dm.qryTemp.SQL.add('select * from 최종가격 where 년분기=''20031''');
    dm.qryTemp.open;
    i:=0;

    while not dm.qryTemp.eof do begin
      dm.qryTemp3.close;
      dm.qryTemp3.SQL.clear;
      dm.qryTemp3.SQL.add('select * from 모장사용 where 제품코드='''+dm.qryTemp.Fields[i].Text+'''');
      dm.qryTemp3.open;
      j:=0;
      while not dm.qryTemp3.eof do begin
        dm.qryTemp.Fields[dm.qryTemp.FieldCount+j].FieldName := dm.qryTemp3.Fields[j].FieldName;<---


        Inc(j);
        dm.qryTemp3.next;
      end;
      Inc(i);
      dm.qryTemp.next;
    end;//while
  dm.qryTemp.close;

  ChangeExcel(dm.qryTemp);<--
//

list index out of bound 에러가 납니다..
그냥 단순한 select 문 넘겨서 엑셀로 변환은 되는데
Query로 뽑은 record 옆에다가 다른 Field는 갖다붙이는 방법이 잘못
된거 같아요..ㅠㅠ
테이블 두개있고..한개 뽑은 record에다가 추가로 다른 field를 붙이고 싶습니다.조언 주시면 감사하겠습니다..