Datensatz Sortierreihenfolge ändern und verschieben

[DevStar]

Zitat von DeddyH:

Wieso bei allen? IMHO dürften doch die beiden auszutauschenden genügen, oder irre ich mich?

Stimmt, 2 reichen.

Klappt nur nicht.....

Code für "Nach-Oben-Schieben" im Grid

Delphi-Quellcode:

      with DataModule.DataSet do
        begin
          Open;
          if Locate('SORTORDER', IntToStr(iSortorder), [loCaseInsensitive]) then
            iSortorder := FieldByName ('SORTORDER').AsInteger;


          iOldSortorder := iSortorder;
          iNewSortorder := iSortorder-1;

          sSQL_Befehl1 := 'UPDATE kunden SET sortorder = ' + IntToStr(iNewSortorder) + ' '+   
                          'WHERE sortorder = ' + IntToStr(iOldSortorder) + '';

          sSQL_Befehl2 := 'UPDATE kunden SET sortorder = ' + IntToStr(iOldSortorder) + ' '+
                          'WHERE sortorder = ' + IntToStr(iNewSortorder) + '';
        end;