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);

巴特西

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

最新文章

热门文章