function XXXXXFrom.CheckData(Sender: TObject): Boolean; var tmpcds:TfwClientDataset; begin Result:=False; tmpcds:=TfwClientDataset.Create(nil); try tmpcds.CopyFromDataSet(fcdsImport); tmpcds.First; while not tmpcds.Eof do begin if Trim(tmpcds.FieldByName('LICENSE').AsString)='' then begin TbsUtilFunc.ShowMsg('XXX不能为空,请重新填写导入!'); exit; end; if Trim(tmpcds.FieldByName('REPORT_MAN').AsString)='' then begin TbsUtilFunc.ShowMsg('XXX不能为空,请重新填写导入!'); exit; end; if Trim(tmpcds.FieldByName('RECORD_MAN').AsString)='' then begin TbsUtilFunc.ShowMsg('XXX不能为空,请重新填写导入!'); exit; end; tmpcds.Next; end; finally FreeAndNil(tmpcds); end; Result:=True; end; --------------------- 作者:无名小卒菜 来源:CSDN 原文:https://blog.csdn.net/weixin_39428938/article/details/89947487 版权声明:本文为博主原创文章,转载请附上博文链接!