paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

RxDBGrid - fix error on calc footer sum for ZeosDBO

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2708 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2013-03-22 19:54:49 +00:00
parent 56183071a6
commit e5b34bf98b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/rx/exsortzeos.pas
View File

@ -38,7 +38,8 @@ begin
RS:=THackZeosDS(ADataSet).ResultSet; RS:=THackZeosDS(ADataSet).ResultSet;
CurRow:=RS.GetRow; CurRow:=RS.GetRow;
RS.First; RS.First;
while not RS.IsLast do // while not RS.IsLast do
while not RS.IsAfterLast do
begin begin
for i:=0 to AGrid.Columns.Count-1 do for i:=0 to AGrid.Columns.Count-1 do
begin begin