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 := 0 to ds.Fields.Count - 1 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);