delphi刷新界面所選行丟失問題

procedure TFram.ado_khAfterPost(DataSet: TDataSet);

var

IDs: string;

begin

inherited;

dxDBGrid_khClick(nil); //刷新界面記住所選行

IDs := ado_kh.FieldByName('cCusCode').AsString;

ado_kh.Close;

ado_kh.Open;

ado_kh.Locate('cCusCode', IDs, []);

end;