1、用 do while !eof() ......enddo 给学号字段添加学号
i=1
go top
do while !eof()
repl 学号 with i &&如果学号字段是字符型，把 i 换成 allt(str(i))
i=i+1
enddo 

2、建一个TH.prg文件或者自定义函数
para cTH
do case
case cTH="A"
retu "优"
case cTH="B"
retu "良"
case cTH="C"
retu "中"
case cTH="D"
retu "差"
endcase
retu cTH

然后用 repl all 语文 with TH(语文),科学 with TH(科学),........,音乐 with TH(音乐)

3、用 set filt to "涛"$姓名  筛选姓名中带"涛"字的记录
或者用 sele * from 表1 where 姓名 like "%涛%"

以上没测试。

先说小问题
1、把60个学生怎么样，你没讲。
如果只是排个号，可用
repl all 学号 with recno() && 字段应是数值型

2、
 repl 学科 with "优" for 学科="A"
其他类似 

3、 set filt to "涛"$姓名

再说大的

给你一个方法：写个小程序

1、在两个工作区中分别打开表1和表2
2、对表1中的每个人，在表2中找到他的对应成绩，并比较两个成绩是否一致
3、如不一致，按要求显示内容
4、继续下一个人，直到结束

另：如果表中的人数很多，上述方法会花你很长时间，对此
你可以对两个表进行索引，再按索引顺序进行比较，这样会快许多。