我只把你那代号的由主索引换成普通索引....
你可以在表单那用代码限制,保证它的唯一性

人事卡片增加 表单
增加代码:
use rskp
IF EMPTY(ALLTRIM(thisform.text1.value))=.t.
MESSAGEBOX("输入的 代号 不能为空!",0+16,"提示")
thisform.text1.SetFocus
ELSE
LOCATE FOR rskp.代号==VAL(alltr(thisform.text1.value))
IF FOUND()=.t.
MESSAGEBOX("代号己存在,请重新输入!",0+16,"提示")
thisform.text1.SetFocus
else
insert into rskp(代号,部门,姓名,性别,现任职务,出生年月,民族,籍贯,政治面目,职称,文化程度,健康状况,家庭出身,本人成分,婚姻状况,参加工作时间,进本单位时间,工资,各种补贴,家庭住址,年龄,备注,编号,职号,代码 );
value (VAL(thisform.text1.value),thisform.text2.value,thisform.text3.value,thisform.text4.value,thisform.text5;
.value,thisform.text6.value,thisform.text7.value,thisform.text8.value,thisform.text9.value,thisform.text10.value,thisform.text11.value,thisform.text12.value,thisform.text13.value,;
thisform.text14.value,thisform.text15.value,thisform.text16.value,thisform.text17.value,VAL(thisform.text18.value),VAL(thisform.text19.value),thisform.text20.value,VAL(thisform.text21.value),;
thisform.text22.value,VAL(thisform.text23.value),VAL(thisform.text24.value),VAL(thisform.text25.value))
messagebox ("增加成功",32,"信息窗口")
thisform.release
ENDIF
endif
在你自己的以前的再加了点的
试试