If([在岗状况]="在岗",True,If(MsgBox("程序将自动转移此行数据到【离职人员人事资料表】。"+char(13)+"确定要转移吗?",2,2),CopyFor("离职人员人事资料表","工号,姓名,车间,班组,工位,岗位,入司时间,工龄,在岗状况,离职日期,出生日期,年龄,婚姻状况,联系电话_家庭电话,联系电话_移动电话,转岗明细,培训记录,照片,安全记录,劳务所,身份证号码,籍贯,学历","工号,姓名,车间,班组,工位,岗位,入司时间,工龄,在岗状况,离职日期,出生日期,年龄,婚姻状况,联系电话_家庭电话,联系电话_移动电话,转岗明细,培训记录,照片,安全记录,劳务所,身份证号码,籍贯,学历","在岗状况"," = ", "离职") And DelFor( "离职人员人事资料表","姓名"," = ","") And DelReptRows("离职人员人事资料表","姓名","身份证号码","在岗状况") And DelFor("人事资料表","职位状况"," = ", "离职"), True ))
无法复制记录到 离职人员人事资料表
找不出问题出在什么地方,帮忙看一下 谢谢了