From e5b34bf98b8b9207e6eeff121ee1f0aa9968561a Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 22 Mar 2013 19:54:49 +0000
Subject: [PATCH] RxDBGrid - fix error on calc footer sum for ZeosDBO

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

diff --git a/components/rx/exsortzeos.pas b/components/rx/exsortzeos.pas
index 67936f7f3..15b927e9f 100644
--- a/components/rx/exsortzeos.pas
+++ b/components/rx/exsortzeos.pas
@@ -38,7 +38,8 @@ begin
   RS:=THackZeosDS(ADataSet).ResultSet;
   CurRow:=RS.GetRow;
   RS.First;
-  while not RS.IsLast do
+//  while not RS.IsLast do
+  while not RS.IsAfterLast do
   begin
     for i:=0 to AGrid.Columns.Count-1 do
     begin