with QueryX do begin Close; ... Open; First; StringGridX.ColCount ;= FieldCount + 1; StringGridX.RowCount := RecordCount + 1; while Not Eof do begin for J := 1 to StringGridX.RowCount do begin for I := 1 to StringGridX.ColCount do begin StringGridX.Colls[I,J] := Fields[I].AsString; end; Next; end; end; end; -------------- 没有调试,自己再试一试,如果不对,权当灌水
begin
Close;
...
Open;
First;
StringGridX.ColCount ;= FieldCount + 1;
StringGridX.RowCount := RecordCount + 1;
while Not Eof do
begin
for J := 1 to StringGridX.RowCount do
begin
for I := 1 to StringGridX.ColCount do
begin
StringGridX.Colls[I,J] := Fields[I].AsString;
end;
Next;
end;
end;
end;
--------------
没有调试,自己再试一试,如果不对,权当灌水