x=alltrim(thisform.text1.value) select 姓名 ; from student ; where 学号=x ; into cursor temp thisform.text2.value=姓名 thisform.refresh