diff --git a/fcl/db/sqlite/customsqliteds.pas b/fcl/db/sqlite/customsqliteds.pas
index c31df36ed2..34095bbe41 100644
--- a/fcl/db/sqlite/customsqliteds.pas
+++ b/fcl/db/sqlite/customsqliteds.pas
@@ -837,6 +837,8 @@ begin
   end//if
   else
     ActiveItem^.Row[Pred(Field.FieldNo)]:=nil;        
+  if not (State in [dsCalcFields, dsFilter, dsNewValue]) then
+    DataEvent(deFieldChange, Ptrint(Field));  
 end;
 
 procedure TCustomSqliteDataset.SetRecNo(Value: Integer);