Question

VFP中判断一数据是否属于一个数组

有一张student表，里面学号和姓名都是唯一。
我向设计一个表单，里面有2个TEXT和一个COMMAND
要求如下：
1.在TEXT1中输入表中姓名，点按钮就会在TEXT2中显示学号
2.如果输入的不是student表姓名字段中的任意一值
则提示“输入错误查无此人”

下面是我的代码
表单的LOAD代码：
open database xuesheng
use student in 0

COMMAND1的代码：
select 姓名 from student into array SZ1
IF alltrim(thisform.text1.value）NOT IN SZ1 &&就是这句，怎么判断此输入的数据是否属于数组SZ1
wait"输入错误查无此人" windows timeout 5
else
select 学号 from student where 姓名=alltrim(thisform.text1.value) into cursor lsb
select lsb
go top
thisform.text2.value=学号
endif

Answer 1

改变一下方式：
先用text1中的值判断一下在student表中是否存在，然后根据返回值做提示就行了
这样做：
select count(姓名)from student where 姓名=alltrim(thisform.text1.value
至于返回值你自己写吧，vfp的代码结构我也记不清了，不好意思