refresh if the list is being replaced when active

Author: sglienke

Source/Persistence/ObjectDataset/Spring.Persistence.ObjectDataset.pas

@@ -973,6 +973,8 @@ procedure TObjectDataset.SetDataList(const Value: IObjectList);
   FItemTypeInfo := FDataList.ElementType;
   IndexList.DataList := FDataList;
   RegisterChangeHandler;
+  if Active then
+    Refresh;
 end;
 
 procedure TObjectDataset.SetFilterText(const Value: string);