主题：[求助]在线等!又要麻烦大家了！关于AppendRows函数的问题。

复制完后再删除此行信息

If([职位状况] = -1, True ,MsgBox("现在将要转移此行数据到［离职人员人事资料表］中!你确定要转移吗？",2,2) and CopyFor("离职人员人事资料表","编号,姓名,身份证号码,性别,年龄,出生日期,照片,籍贯,户口地址,婚否,婚姻状况,最高学历,学历编号,专业,学历类型,部门信息_事业群,部门信息_部门,部门信息_班组,工号,工种职务,入职日期,职位状况,在职离职,工龄【月】,离职日期","编号,姓名,身份证号码,性别,年龄,出生日期,照片,籍贯,户口地址,婚否,婚姻状况,最高学历,学历编号,专业,学历类型,部门信息_事业群,部门信息_部门,部门信息_班组,工号,工种职务,入职日期,职位状况,在职离职,工龄【月】,离职日期","职位状况"," = ", 0) And DelFor("离职人员人事资料表","姓名"," = ","") And DelReptRows("离职人员人事资料表","编号","姓名","身份证号码","性别","年龄","出生日期","照片","籍贯","户口地址","婚否","婚姻状况","最高学历","学历编号","专业","学历类型","部门信息_事业群","部门信息_部门","部门信息_班组","工号","工种职务","入职日期","职位状况","在职离职","工龄【月】","离职日期") And DelFor("人事资料表","职位状况"," = ", 0) And SetCellText(Gridname,Row,"职位状况",-1))
这样试试