表单的数据环境中有两个表students\scores，students(学号，姓名)，scores(学号，成绩)，在“向上”、“向下”按钮中添加什么代码可以在“姓名”文本框中显示相应的姓名？

表单用USE打开表并建立两表关联。
向上：
skip -1
thisform.refresh

向下：
skip
thisform.refresh

[ 本帖最后由 qjbzjp 于 2009-9-21 11:35 编辑 ]

是不是这样的，怎么还不行？请指教。

要在父表中移动指针，
skip 1 in students  
thisform.refresh   
 
skip -1 in students
thisform.refresh  

SKIP IN scores
SELECT students  
DIMENSION aaa(1)
SELECT distinct students.姓名 FROM students,scores  WHERE students.学号=scores.学号 and ALLTRIM(scores.学号)=ALLTRIM(thisform.text1.Text)  ;
 INTO ARRAY aaa
thisform.text2.Value=aaa(1)
 
thisform.Refresh