0

Подскажите пожалуйста, нужно сделать выгрузку в эксель запросом. Нужно выгрузить с 1 по 31 число в каждый столбец данные, выгружает правильно, но при добавлении следующей строки делает отступ на 31 стоку, а после этого добавляет следующую строку, не могу понять как это переделать.

   while not qAny.EOF do begin
          Excel.ActiveSheet.Cells.Item[rowInd,1].Value:=Fields[0].Value;
          Excel.ActiveSheet.Cells.Item[rowInd,2].Value:='ААА32587L';
           for i:=0 to 30 do begin
   Excel.ActiveSheet.Cells.Item[rowInd-i,i+4].Value:=Fields[1].Value;inc(rowInd);
          Next;
        end; end;
2
  • В цикле FOR у Вас вычисляется номер строки rowInd-i, обе переменных инкрементируются на 1 за каждый проход и в результате получается, что все 31 раз вы заносите данные в одну и ту же строку. Но счетчик rowInd растет и с новой итерацией WHILE Вы попадаете в строку со сдвигом в 31.
    – dr. F.I.N.
    20 фев 2019 в 2:47
  • Как это можно исправить?
    – Анна
    20 фев 2019 в 6:07

1 ответ 1

1

Как это можно исправить?

while not qAny.EOF do
begin
  Excel.ActiveSheet.Cells.Item[rowInd,1].Value:=Fields[0].Value;
  Excel.ActiveSheet.Cells.Item[rowInd,2].Value:='ААА32587L';
  for i:=0 to 30 do 
  begin
    Excel.ActiveSheet.Cells.Item[rowInd, i+4].Value := Fields[1].Value;
    Next;
  end;
  inc(rowInd);
end;
1
  • Спасибо все работает
    – Анна
    20 фев 2019 в 7:13

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.