* Fix descending order sort. Fixes issue #40751

packages/fcl-db/src/base/bufdataset.pas

@@ -2232,7 +2232,7 @@ begin
 
     ACompareRec.Desc := ixDescending in AIndexOptions;
     if assigned(ADescFields) then
-      ACompareRec.Desc := ACompareRec.Desc or (ADescFields.IndexOf(AField)>-1);
+      ACompareRec.Desc := ACompareRec.Desc and (ADescFields.IndexOf(AField)>-1);
 
     ACompareRec.Options := ALocateOptions;
     if assigned(ACInsFields) and (ACInsFields.IndexOf(AField)>-1) then