+ fix for bug #7007 by Martin Schreiber

git-svn-id: trunk@3896 -

fcl/db/datasource.inc

@@ -112,6 +112,7 @@ begin
         RecordChanged(TField(Info));
     deDataSetChange: begin
       SetActive(DataSource.DataSet.Active);
+      CalcRange;
       CalcFirstRecord(Info);
       DatasetChanged;
     end;