quickreport 打印问题！及待解决！！求助！！

Question

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
table1.Open;
table1.Append;
table1.Fields.Fields[0].asstring:=edit1.text;
table1.Fields.Fields[1].asstring:=edit2.text;
table1.Fields.Fields[2].asstring:=edit3.text;
table1.Fields.Fields[3].asstring:=edit4.text;
table1.Fields.Fields[4].asstring:=edit6.text;
table1.Fields.Fields[5].asstring:=edit5.text;
table1.Fields.Fields[6].asstring:=edit7.text;
table1.Fields.Fields[7].asstring:=edit10.text;
table1.Fields.Fields[8].asstring:=edit8.text;
table1.Fields.Fields[9].asstring:=edit9.text;
table1.post;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
     form2.quickrep1.print;
end;
症状: 总是自第一条纪录开始打印至前次输入的数据截止，本次输入的数据总是在下次 打印时出现！！目的：想通过quickrep1打印当前输入的数据（delphi6+access2000)

Answer 1

table1.close;
table1.open;
重新打开就可以了

Answer 2

由于你的TABEL并没有刷新，所以每次提交完数据后，他显示的都是上次的数据，所以如果你要全部打印，则需要按楼上说的
table1.close;
table1.open;
如果你只要打印当前的记录则需要：
table1.close;
table1.open;
form2.quickrep1.dataset:=nil;