* TField.CanModify should return false if the dataset is inactive

git-svn-id: trunk@12741 -

packages/fcl-db/src/base/fields.inc

@@ -530,7 +530,7 @@ begin
     Result := FieldKind in [fkData, fkInternalCalc];
     if Result then
       begin
-      Result:=Assigned(DataSet);
+      Result:=Assigned(DataSet) and Dataset.Active;
       If Result then
         Result:= DataSet.CanModify;
       end;