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

大家来看看啊！

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

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

这样设置之后，把职位状况改为离职时，会弹出提示信息，点击确定后，会删除在人事资料表中的记录。但是，在离职人员人事资料表中没有看到剪切过来的数据！

这时怎么回事呢？我头都大了！

怎样 直接在职＝0,离职＝-1？

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

都是在离职表里看不到复制过去的数据，唉，我要疯了！

22楼的文件完全可以达到你的要求
应该是：在职＝0,离职＝－1,你弄反了！

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

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

按照以上公式设置，还是不能在离职人员资料表中看到转移过来的数据啊！

我真的不想一次又一次的就同一个问题麻烦大家，但是真的能力有限！这个帖子都盖到29楼了，能回复帖子的都很有耐心了，谢谢大家！

如果还解决不了，那就不麻烦大家了。换个方式算了！

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