解决无法更新定位行

解决无法更新定位行

错误原因：　新加的数据，如果对此再有改动，由于未更新。导致记录无法找

到。
解决办法：　在新加数据后做　刷新工作

步骤：
1
　建一个全局变量 nflag

2
procedure TfPurchase.ADOTable1AfterInsert(DataSet: TDataSet);
begin
  nflag:=1;
end;

3
procedure TfPurchase.ADOTable1AfterPost(DataSet: TDataSet);
Begin
  if nflag=1 then begin
    ADOTable1.Close;
    ADOTable1.Open;
    ADOTable1.Last;
    nflag:=0;
  end;
end;

问题解决

Delphi 7 + win2003 + Ado +Access