* Fix bug #33252

git-svn-id: trunk@38597 -

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

@@ -2237,7 +2237,8 @@ begin
   if Active then
     begin
     B.InitialiseSpareRecord(IntAllocRecordBuffer);
-    BuildIndex(B);
+    if (F.Fields<>'') then
+      BuildIndex(B);
     end
   else
     if (FIndexes.Count+2>FMaxIndexesCount) then