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

把预处理公式设在按钮里！

这样？
egd文件下载

谢谢WJQ1072，实现了我要的功能。
但这样还有个问题，我在第一个表中，在离职列进行选择时，根本看不到结果（打√或打×）就复制改行数据到表二中并在表一删除了数据。
这样显然不够人性化，能不能在我改动后，鼠标焦点移动到别的行的时候在触发公式啊？
谢谢解答！

这样就行
egd文件下载

谢谢版主和易友，学习去了。

感觉主要是函数不熟，有没有能实现想要功能的函数自己都不清楚，所以老是来麻烦大家，看来还要多多学习帮助文件啊!

文件见下面。

在学习了SmileBoy版主的文件后，我也照猫画虎的写了以下人事资料表在职离职列的操作公式，结果却不对，麻烦大家帮我kk问题出在那里？谢了！

公式有点长，希望不要头晕！呵呵呵呵！！

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

egd文件下载

这样？
egd文件下载

这样试试？

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

首先明确：在职＝－1,离职＝0,可能我们刚好弄反了！

这样不知行不行？

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

经验证，19楼的公式在把职位状况改为离职时，会弹出提示信息，点击确定后，会删除在人事资料表中的记录。但是，在离职人员人事资料表中没有看到剪切过来的数据！谁能帮我解惑？谢谢，在线等！