SELECT ruku
COUNT FOR 序号=thisform.text1.value TO x
thisform.Refresh
IF x>1
MESSAGEBOX("该序号已存在",48,"提示")
RETURN 0
ENDIF
thisform.Refresh

运行时为什么是个死循环？？我昨天想了一天都不明白啊．为什么会这样？？这代码我是放在一个文本框的vaild下面．．

我认为是thisform.Refresh在作怪吧。表单不断刷新，那么文本框失去焦点的事件（Vaild)就不断发生。理论上分析，不一定对。
能不能考虑把代码放在文本框的InterActiveChange里。
另外，查找已存在的序号建议不用Count,改用Locat，因为Locat在找到第一个符合条件的记录后就会停下来，而Count则会对所有记录进行分析。
如果该字段是索引关键字，用Seek更快

[此贴子已经被作者于2006-3-23 16:49:54编辑过]

放在interactivechang里面不行啊，该字段是索引关键字来的．．．用seek的话，不是查找出第一个记录吗？我的是，，比如表里有已经有序号５了，当我在文本框再输入５的时候，失去焦点的时候就提示存在，再让它重新输入．．如果用locate和seek也可以，请问要怎么写呢？？


我在那另外发了个更详细的贴子．．序号都是数值型的．．．谢谢了～～

seek要怎么用呢？能给点代码实例吗？谢谢！

select ruku
locate for 序号=thisform.text1.value
if found()
MESSAGEBOX("该序号已存在",48,"提示")
thisform.text1.setfocus=.t.
endif

写错了，应该是这一句　

select ruku
locate for 序号=thisform.text1.value
if found()
MESSAGEBOX("该序号已存在",48,"提示")
thisform.text1.setfocus
endif

你那也不行的．．在vaild事件是不能用setfocus的．．我也试过，还是不行．．

valid事件中是不能用setfocus的。
可以用这个代替return 0

不过您的问题可能不在这。估计在于数据库表中存在空纪录或别的什么，改进方法：
1.设置set exac on
2.去掉空串。使用函数alltrim(序号)，alltrim(thisform.text1.value)
3.用精确比较"=="

请问能不能使列印的时候，序号重新排列？
或者在表单中，每次查询某一项时，序号都重新排列．．

查询的时候表格的内容会重叠在一起，请问这怎么解决？