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 属性里面添加的代码,但是我一运行就出错我实在是找不是错误的原因!
还请各位看看到底是错在哪里!先谢过了!
为什么我输入了正确的借书证号还是会弹出"读者不存在，请添加读者！"的提示信息呢?

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

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

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

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