可以使用下面的方法规避掉,在数据集更新前对text字段重新赋值
procedure xx.BeforePost(DataSet: TDataSet);
begin
if DataSetMeetingSummary.FieldByName('meeting_comment').IsNull then
begin
DataSetMeetingSummary.FieldByName('meeting_comment').AsString:=' ';
exit;
end;
DataSetMeetingSummary.FieldByName('meeting_comment').AsString:=DataSetMeetingSummary.FieldByName('meeting_comment').AsString+' ';
end;