|
@@ -837,6 +837,8 @@ begin
|
|
end//if
|
|
end//if
|
|
else
|
|
else
|
|
ActiveItem^.Row[Pred(Field.FieldNo)]:=nil;
|
|
ActiveItem^.Row[Pred(Field.FieldNo)]:=nil;
|
|
|
|
+ if not (State in [dsCalcFields, dsFilter, dsNewValue]) then
|
|
|
|
+ DataEvent(deFieldChange, Ptrint(Field));
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TCustomSqliteDataset.SetRecNo(Value: Integer);
|
|
procedure TCustomSqliteDataset.SetRecNo(Value: Integer);
|