From 95dbdff1808dfea1c44f6267180543b3f6d2e0fa Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 29 May 2020 21:08:57 +0000
Subject: [PATCH] RxFPC:try to fix RxDBGrid footer row with TSQLQuery

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7476 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxdb/rxdbgrid.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/components/rx/trunk/rxdb/rxdbgrid.pas b/components/rx/trunk/rxdb/rxdbgrid.pas
index daa924403..d96f01c45 100644
--- a/components/rx/trunk/rxdb/rxdbgrid.pas
+++ b/components/rx/trunk/rxdb/rxdbgrid.pas
@@ -5958,6 +5958,8 @@ begin
   if (not (DatalinkActive and (FGroupItems.Active or FFooterOptions.Active))) or (Columns.Count = 0) or (gsAddingAutoColumns in GridStatus) then
     Exit;
 
+  if Datalink.ActiveRecord < 0 then exit;
+
   if Assigned(OnRxCalcFooterValues)then
   begin
     Inc(FInProcessCalc);