我建了3个文本框 ，分别对应的是学号、姓名和性别，我想在输入学号后，在姓名和性别的文本框中自动显示此学号对应的姓名和性别

a=Thisform.学号.value
use 表
loca for 学号=a
if found()
   Thisform.姓名.value=姓名
   Thisform.性别.value=性别
else
   messagebox("学号输入错误！·")
endif

拾楼上的牙慧：把楼上的代码放在文本框“学号”的LOSTFOCUS事件中。

也可以，只添加一个学号文本框，只需将姓名和性别文本框与所调用的表绑定（如，直接将数据环境里的“姓名”和“性别”字段拖入你希望放置的地方，或者用thisform.textname.controlsource=表名.姓名  语句绑定），然后就用楼上大侠的代码，在学号的lostfocus事件中写2楼主的代码：还要添加刷新代码：

a=Thisform.学号.value
 select 表
loca for 学号=a
if found()
   thisform.refresh
else
 messagebox("学号错误或不存在！")
endif

2楼的代码放到KeyPress事件中也很实用：
    IF nKeyCode=13
        ……
    ENDIF