x=alltrim(thisform.text1.value)
locat for alltrim(xsxx.学号)=x
if found()
select 姓名,籍贯,政治面貌,性别,民族,班级 ;
from xsxx ;
where alltrim(学号)==x ;
into cursor temp
thisform.text2.value=姓名
thisform.text3.value=籍贯
thisform.text4.value=政治面貌
thisform.text5.value=性别
thisform.text6.value=民族
thisform.text7.value=班级
else
messagebox("学号不存在",4+48+0,"提示")
endif

可能是没有符合条件的

这样看看
locat for alltrim(xsxx.学号)=x
?xsxx.学号, x

用Locat For ... 之前先确定工作区。
x=Alltrim(Thisform.text1.Value)
SELECT xsxx
Locat For Alltrim(学号)==x
If Found()
    Thisform.text2.Value=姓名
    Thisform.text3.Value=籍贯
    Thisform.text4.Value=政治面貌
    Thisform.text5.Value=性别
    Thisform.text6.Value=民族
    Thisform.text7.Value=班级
Else
    Messagebox("学号不存在",4+48+0,"提示")
Endif

谢谢

可以了，非常感谢！！