use \图书管理系统\读者情况表.DBF
dimension a(9999)
for i=1 to 9999
go 1
store 借书证号 to a(i)
endfor
if a==alltrim(thisform.text3.value)
alltrim(thisform.text3.value)
else
nAnswer=messagebox("读者不存在，请添加读者！",42,"错误信息")
endif
cancel
以上是我在 text1 的 vald 属性里面添加的代码,但是我一运行就出错我实在是找不是错误的原因!
还请各位看看到底是错在哪里!先谢过了!
为什么我输入了正确的借书证号还是会弹出"读者不存在，请添加读者！"的提示信息呢?

你是不是想通过在text1失去焦点前自动在数据库里面查找该读者是否存在，如果是的话，大可不必这样编写代码，使用scan 。。。。。。endscan就行了

dimension a(9999)
for i=1 to 9999
go 1
store 借书证号 to a(i)
endfor
if a==alltrim(thisform.text3.value)
alltrim(thisform.text3.value)
else
nAnswer=messagebox("读者不存在，请添加读者！",42,"错误信息")
endif
cancel

1、你前面的代码定义的a是数组，而你后面使用的a却是变量。请注意红色标注的代码；
2、alltrim()是消除前后空格的函数，正确用法是：变量名=alltrim(thisform.text3.balue)。请注意蓝色标注的代码；
3、store是将整条记录传递给数组变量，你的第四行应该改为：a(i)=借书证号。

[此贴子已经被作者于2007-1-12 19:30:03编辑过]

我不会用scan.........endscan这种语法结构!
还有我改成
a(i)==alltrim(thisform.text3.value)
以后提示就变成了"下标超界!"能再指教一下是什么问题吗?

[此贴子已经被作者于2007-1-12 19:47:52编辑过]

你的程序问题较多：
1、你在for....endfor循环中将数据表的第一条记录赋值到a(9999)数组，也就是说，数组中的9999个变量值完全一样。这可能不是你的初衷；
2、你在接下来的代码中并没有重新定义循环变量i值，此时i值在for循环中值仍为9999+1即10000，这就是下标超界的原因。
总之，你的程序流程不清晰，需要改进。

a(i)==alltrim(thisform.text3.value)
请问能这个样子数组和输入的值直接进行比较吗?

(1)在表单的初始化部分打开表(thisform.init)，并做相应设置：
use \图书管理系统\读者情况表.DBF
thisform.text3.value=''
thisform.text3.inputmask=replicate("x",len(借书证号))
(2)在text3.valid()里的代码是：
select 读者情况表
locate all for 借书证号=thisform.text3.value
return !eof()

谢谢版主提示,做出来了我看了好久的书,问了好多人都没做出来!太谢谢您啦!