9楼的办法是最常用的，也是最简单的，把代码放在文本框的LostFocus里面。当然这种情况下，文本框不与表字段绑定。

问题解决了，出在循环上。其实问题不难，大家细心的想一下就会知道。
我给个思路吧：

1.指针指在当前的记录值付给变量，并返回当前记录号a
2.GO TOP
我用了循环，I=1 若I<>a则判断:
IF zgda.da_name=XM
MESSAGEBOX("姓名重复",4+32,"报错")
EXIT
ENDIF
3.但是要是I=a了,就让I=a+1
其间需要指针自动下移SKIP

只要仔细考虑了，就有结果了，但是还是问出来，大家一起讨论，开阔视野了。
也有时候，一点小问题，可卡那里就是动不了，解决了还自己都想
最后不能忘记感谢大家的关注！~~

[此贴子已经被作者于2006-9-7 11:24:54编辑过]

还想问问,这里用了DO WHILE 的循环,如果记录很多,速度会不会慢啊?

看记录的多少,看是不是条件循环

是的,我在11楼写了一下,中间有条件选择.

用LOCATE FOR也可以不用循环
1.指针指在当前的记录值付给变量XM，并返回当前记录号a
2.GO TOP
LOCATE FOR zgda.da_name=XM .AND. RECNO()<>a

比循环简单多了.