将指定行上移后指针指到原上移行

Question

var  ADOSetTmp: TADODataSet;
     i,j:int64;
begin
ADOQuery1.DisableControls;
    ADOSetTmp := nil;
    ADOSetTmp := TADODataSet.Create(ADOSetTmp);
    ADOSetTmp.CommandText := 'select max(xh) as num from TBA_PZ where mc='''+zw_para0+''' and xh<'+inttostr(ADOQuery1.FieldByName('xh').AsInteger);
    ADOSetTmp.Connection := data1.ADOConnection1;
    ADOSetTmp.Open;
    if  ADOSetTmp.FieldByName('num').Value<>null then
    begin
        j:=ADOQuery1.FieldByName('xh').Value;
        i:= ADOSetTmp.FieldByName('num').Value;
            ADOQuery1.edit;
            ADOQuery1.FieldByName('xh').Value:=i;
            ADOQuery1.Prior;
            ADOQuery1.edit;
            ADOQuery1.FieldByName('xh').Value:=j;
    end;
    ADOQuery1.EnableControls;
    ADOSetTmp.Free;
    aDOQuery1.UpdateBatch;
    ADOQuery1.Close;
    ADOQuery1.open;
实现了将指定行上移,但上移后记录指针又跳到数据的第一行,如果指定行要连续的上移,这样每次都要重选非常麻烦,用什么方法可以实现数据指针上移后又跟踪到原上移行

Answer 1

最后一句，ADOQuery1.open; 数据集重新打开后，界面联动刷新，数据集指向第一个记录，如果想刷新后，重新定为到指定行的话，在你交换了行位置后，记下要指向记录的id（唯一值），然后ADOQuery1.open后，ADOQuery1.Locate('id','你记录下的那个值',[])定位到你想要的记录