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

RxFPC:fix problem on calc values for footer row

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5819 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-03-26 16:13:34 +00:00
parent cbc35cb1c3
commit b90b0b5960
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/rx/trunk/rxdb/rxdbgrid.pas
View File

@ -1290,7 +1290,7 @@ begin
FCountRec:=0; FCountRec:=0;
if (ValueType in [fvtMin, fvtMax]) and (TRxDBGrid( if (ValueType in [fvtMin, fvtMax]) and (TRxDBGrid(
FOwner.Grid).DataSource.DataSet.RecordCount <> 0) then FOwner.Grid).DataSource.DataSet.RecordCount <> 0) and (FFieldName<>'') then
begin begin
F := TRxDBGrid(FOwner.Grid).DataSource.DataSet.FieldByName(FFieldName); F := TRxDBGrid(FOwner.Grid).DataSource.DataSet.FieldByName(FFieldName);
if (Assigned(F)) and not (F.IsNull) then if (Assigned(F)) and not (F.IsNull) then
@ -1305,7 +1305,7 @@ procedure TRxColumnFooterItem.UpdateTestValue;
var var
F: TField; F: TField;
begin begin
if ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin] then if (ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin]) and (FFieldName<>'') then
begin begin
F := TRxDBGrid(FOwner.Grid).DataSource.DataSet.FindField(FFieldName); F := TRxDBGrid(FOwner.Grid).DataSource.DataSet.FindField(FFieldName);
if Assigned(F) then if Assigned(F) then
@ -1335,7 +1335,7 @@ var
F: TField; F: TField;
begin begin
Result := True; Result := True;
if ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin] then if (ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin]) and (FFieldName<>'') then
begin begin
F := TRxDBGrid(FOwner.Grid).DataSource.DataSet.FieldByName(FFieldName); F := TRxDBGrid(FOwner.Grid).DataSource.DataSet.FieldByName(FFieldName);
if (Assigned(F)) and not (F.IsNull) then if (Assigned(F)) and not (F.IsNull) then
@ -1354,7 +1354,7 @@ var
F: TField; F: TField;
begin begin
Result := True; Result := True;
if ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin] then if (ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin]) and (FFieldName<>'') then
begin begin
F := TRxDBGrid(FOwner.Grid).DataSource.DataSet.FieldByName(FFieldName); F := TRxDBGrid(FOwner.Grid).DataSource.DataSet.FieldByName(FFieldName);
if Assigned(F) then if Assigned(F) then
@ -1417,7 +1417,7 @@ var
F: TField; F: TField;
begin begin
Result := True; Result := True;
if ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin] then if (ValueType in [fvtSum, fvtAvg, fvtMax, fvtMin]) and (FFieldName<>'') then
begin begin
F := TRxDBGrid(FOwner.Grid).DataSource.DataSet.FieldByName(FFieldName); F := TRxDBGrid(FOwner.Grid).DataSource.DataSet.FieldByName(FFieldName);
if Assigned(F) then if Assigned(F) then