用循环啊!!!
with quReport do
begin
First;
for Row := 1 to RecordCount do
begin
for i:=1 to exportcount do
begin
if (isdigit[i]=false ) then
XLSWrite.WriteString(i-1 ,Row+1, -1, FieldByName(exportcolumn[i]).AsString)
else
XLSWrite.WriteNumber(i-1 ,Row+1, -1, FieldByName(exportcolumn[i]).AsInteger);
end;
Next;
end;
end;
XLSWrite.CloseFile;