TClientDataSet 提交时提示 Field value Require…

 1 procedure postAndCheckValue(ds: TDataSet);
 2 var
 3   I: Integer;
 4   curField: TField;
 5   strField: TStringField;
 6 begin
 7   try
 8     ds.Post;
 9   except
10     on E: EDBClient do begin
11       if E.Message = 'Field value required.' then begin
12         for I := 0 to ds.Fields.Count - 1 do begin
13           curField := ds.Fields[I];
14           if curField.Required and ds.Fields[I].IsNull then
15             raise EDBClient.Create('必要的数据项“' + ds.Fields[I].DisplayLabel + '”为空值！', E.ErrorCode);
16 
17           if curField.Required and (curField is TStringField) then begin
18             strField := curField as TStringField;
19             if strField.FixedChar and (strField.AsString = '') then
20               raise EDBClient.Create('必要的数据项“' + ds.Fields[I].DisplayLabel + '”为空值！', E.ErrorCode);
21           end;
22         end;
23       end;
24       raise;
25     end;
26   end;
27 end;

myDataSet.append;

postAndCheckValue(myDataSet);