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;