DBGrid的问题

Question

我在窗体打印预缆的时候给报表指定的数据集
RepBZSJDF.QuickRep1.DataSet:=DBGrid1.DataSource.DataSet;
RepBZSJDF.QuickRep1.Preview;预缆的时候可以找到记录数！！就是显示出2条数据的格子！！但是不显示数据！！
想问问啥问题！！！

Answer 1

你直接在QuickRep的设计面板上,直接在上面设置QuickRep的数据源,这样试试.

Answer 2

对了！！顺便再问一个问题！！我显示了N条数据！！在这N条数据会面还有些东西要显示！！要紧挨着这些数据显示！！但数据条数N不知道！！怎么显示???

Answer 3

把RepBZSJDF.QuickRep1中的Memo重新绑定DBGrid1.DataSource.DataSet数据集,你所说的我做过,我的是Delphi7,没有QuickRep,不记得具体如何设置了

Answer 4

RepBZSJDF.QuickRep1中的Memo是什么东西？？？没有啊

Answer 5

把RepBZSJDF.QuickRep1中的QRDBText1重新绑定DBGrid1.DataSource.DataSet数据集,var
  i:integer;
  FDataSet: TDataSet;
begin
  FDataSet := DBGrid1.DataSource.DataSet;
  for i := to QuickRep1.ControlCount - 1 do
  begin
    if QuickRep1.Components[i] is TQRDBText then
      TQRDBText(QuickRep1.Components[i]).DataSet := FDataSet;
  end;

Answer 6

写错了,应该是
var
  i:integer;
  FDataSet: TDataSet;
begin
  FDataSet := DBGrid1.DataSource.DataSet;//新的DataSet
  for i := 0 to QuickRep1.ControlCount - 1 do
  begin
    if QuickRep1.Components[i] is TQRDBText then
      TQRDBText(QuickRep1.Components[i]).DataSet := FDataSet;  //重新绑定数据集
  end;

Answer 7

var
  Form1: TForm1;implementation
uses unit2;                        //引用這個單元
{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
begin
        Form2.quickRep1.Preview;//預覽
end;procedure TForm1.BitBtn2Click(Sender: TObject);
begin
        Form2.quickRep1.Print;//打印
end;procedure TForm1.BitBtn3Click(Sender: TObject);
begin
 close;
end;