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

2楼版主已经提供了呵！！

这样？
egd文件下载

这样？
egd文件下载

这样试试？

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

你为什么要弄成：在职＝－1,离职＝0呢？这样你的后面就要加上SetCellText(Gridname,Row,"职位状况",-1)了。直接在职＝0,离职＝-1不简单吗？不懂你的意思呵？我这里不就可以吗？
egd文件下载

把你的表改动一下看看？
egd文件下载

对照了一下你的表和上面的函数：
1、原列和目标俩列存在问题（不统一、或颠倒）；
2、列标题复杂，好看不好用（公式沉长看了晕！）；
3、“职位状况”列是逻辑型的，但是显示的是在职、离职（不知是怎么弄的？）；
4、你上面的公式好象不在逻辑列的操作公式里，不知你怎么执行该公式；
总之好像表的设计有问题。我按你的格式重新设计的表，把公式放在“职位状况”列的操作公式里后，测试是正常的。结果就是这样啊！！

祝贺楼主成功！