Browse Source

* Patch for bug #27067 by Tony Whyman

git-svn-id: trunk@29112 -
michael 10 years ago
parent
commit
42a317ab73
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-db/src/base/datasource.inc

+ 1 - 1
packages/fcl-db/src/base/datasource.inc

@@ -36,7 +36,7 @@ Var
   B : Boolean;
   B : Boolean;
 
 
 begin
 begin
-  B:=Assigned(DataSource) and (DataSource.State<>dsInactive);
+  B:=Assigned(DataSource) and Not (DataSource.State in [dsInactive,dsOpening]);
   If B<>FActive then
   If B<>FActive then
     begin
     begin
     FActive:=B;
     FActive:=B;