用循环啊!!! 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;
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;
多个字段:edit1.text:=adoquery.filedByName('字段名').asstring
+adoquery.filedByName('字段名2').asstring+……;