pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxDBGrid - fix error on calc footer with null fields - tnx ronin

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2403 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-04-22 17:17:38 +00:00
parent db96249492
commit 909cca7757
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/rxdbgrid.pas
View File

@ -3928,7 +3928,7 @@ begin
begin begin
if F.DataType in [ftDate, ftTime, ftDateTime, ftTimeStamp] then if F.DataType in [ftDate, ftTime, ftDateTime, ftTimeStamp] then
begin begin
if FValueType in [fvtMax, fvtMin] then if (FValueType in [fvtMax, fvtMin]) and not (F.IsNull) then
begin begin
if not (F.IsNull) and (FTestValue = F.AsDateTime) then if not (F.IsNull) and (FTestValue = F.AsDateTime) then
Result := False Result := False