Question

vfp 做学生成绩查询表表单

数据环境为student。dbf，还有另外两个表。表单运行时候，在文本框里面输入学生学号，单机查询，如果存在，就会在数据表中显示，没有的话就会在下边空白处显示“没有相关记录”

Answer 1

先建表，然后建立表单，最后给按钮加代码，如：
sele 学生表 &&学生表先放到数据环境中
t1=alltrim(thisform.text1.value)
loca for 学号=t1
if found()
sele * from 学生表 where 学号=t1 into cursor "temp"
thisform.grid1.recordsource="temp"
else
messagebox("查无此人",64,"提示")
thisform.grid1.recordsource=""
endif