如题

解决方案 »

  1.   

    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;
    --------------
    没有调试,自己再试一试,如果不对,权当灌水