if(FindRow(Grid,"员工编码","=",[员工编码],2)>0,MsgBox("此编码已存在,系统不允许输入相同编码,本条记录将自动删除!",0) And DelRow(GridName,Row),True)