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

RxDBGrid - try fix error on filter records in table and calc sum in footer row

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3591 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-09-22 11:28:22 +00:00
parent 7df1352fd1
commit a69f0fbdbc
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/rx/trunk/rxdbgrid.pas
View File

@ -4120,8 +4120,13 @@ begin
Value := FFilterListEditor.Text; Value := FFilterListEditor.Text;
end; end;
DataSource.DataSet.Refresh; // DataSource.DataSet.Refresh;
DataSource.DataSet.DisableControls;
DataSource.DataSet.Filtered:=false;
DataSource.DataSet.Filtered:=true;
// DataSource.DataSet.First;
CalcStatTotals; CalcStatTotals;
DataSource.DataSet.EnableControls;
if Assigned(FOnFiltred) then if Assigned(FOnFiltred) then
FOnFiltred(Self); FOnFiltred(Self);