Подскажите пожалуйста, нужно сделать выгрузку в эксель запросом. Нужно выгрузить с 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;
FOR
у Вас вычисляется номер строкиrowInd-i
, обе переменных инкрементируются на 1 за каждый проход и в результате получается, что все 31 раз вы заносите данные в одну и ту же строку. Но счетчикrowInd
растет и с новой итерациейWHILE
Вы попадаете в строку со сдвигом в 31.