* Fix error in calclookupvalue

packages/fcl-db/db.pas

@@ -5715,7 +5715,7 @@ begin
 //  if FLookupCache then
 //    Value := LookupList.ValueOfKey(FDataSet.FieldValues[FKeyFields])
 //  else if
-  if Assigned(FLookupDataSet) and FDataSet.Active then
+  if Assigned(FLookupDataSet) and FLookupDataSet.Active then
     Value := FLookupDataSet.Lookup(FLookupKeyfields, FDataSet.FieldValues[FKeyFields], FLookupresultField)
   else
     Value:=Null;