TClientDataSet 提交时提示 Field value Required 但是未提示具体哪个字段。

TClientDataSet 提交时提示 Field value Required 但是未提示具体哪个字段。

这个错误特别麻烦，要使用 midas 控件时，虽然很方便。但是出错了根本找不到原因，特别是这个异常。
下面的补丁，可以帮助找到错误原因。

注：我们自己在使用的时候，采用了控件继承，因此可以把这个功能变成控件基本功能，但是继承相关代码特别多，就不在这里贴了。

 procedure postAndCheckValue(ds: TDataSet);
 var
   I: Integer;
   curField: TField;
   strField: TStringField;
 begin
   try
     ds.Post;
   except
     on E: EDBClient do begin
       if E.Message = 'Field value required.' then begin
         for I :=  to ds.Fields.Count -  do begin
           curField := ds.Fields[I];
           if curField.Required and ds.Fields[I].IsNull then
             raise EDBClient.Create('必要的数据项“' + ds.Fields[I].DisplayLabel + '”为空值！', E.ErrorCode);

           if curField.Required and (curField is TStringField) then begin
             strField := curField as TStringField;
             if strField.FixedChar and (strField.AsString = '') then
               raise EDBClient.Create('必要的数据项“' + ds.Fields[I].DisplayLabel + '”为空值！', E.ErrorCode);
           end;
         end;
       end;
       raise;
     end;
   end;
 end;

调用时，如果出错。就用这个进行提交即可：

myDataSet.append;

postAndCheckValue(myDataSet);