求助，输入之后遇到显示不全问题。

Question

代码如下：
procedure TForm2.Button1Click(Sender: TObject);
begin
    with table1  do
    begin
    Append;
     fieldbyname('箱条码').AsString:=edit1.Text;
     fieldbyname('箱号').AsString:=edit2.Text;
     fieldbyname('入库日期').AsString:=edit3.Text;
     fieldbyname('库管员').AsString:=edit4.Text;
     post;
    end; 
end;
我连续输入几个数据，可是在DBgrid中只显示最后一个，前几个都没有显示出来，只有退出重新进入才显示全，请问各位高手这是怎么回事，解决者赠100分。

Answer 1

append 可以这样写的么?我记得应该是fieldbyname('箱条码').value:=edit1.Text;你可以在post后运行dbgrid.refresh试试

Answer 2

procedure TForm1.Table1AfterPost(DataSet: TDataSet);
begin
Table1.close;
Table1.open;
end;

Answer 3

procedure TForm1.Table1AfterPost(DataSet: TDataSet);
begin
DataSet.close;
DataSet.open;
end;