大概是这样,你再改改吧 procedure TForm27.FormCreate(Sender: TObject); var row, col: Integer; begin self.StringGrid1.RowCount := self.qry1.RecordCount; qry1.First; row := 0; while not qry1.Eof do begin for col := 0 to qry1.Fields.Count - 1 do StringGrid1.Cells[col, row] := qry1.Fields.Fields[col].Value; row := row + 1; end; end;
procedure TForm27.FormCreate(Sender: TObject);
var
row, col: Integer;
begin
self.StringGrid1.RowCount := self.qry1.RecordCount;
qry1.First;
row := 0;
while not qry1.Eof do
begin
for col := 0 to qry1.Fields.Count - 1 do
StringGrid1.Cells[col, row] := qry1.Fields.Fields[col].Value;
row := row + 1;
end;
end;