1.RECORDSOURCETYPE=1 THISFORM.GRID1.RECORDSOURCE="成绩"
Command1 的 click 事件
SELECT 学生
8
LOCATE FOR =ALLT(THISFORM.TEXT1.VALUE) IF FOUND() THISFORM.TEXT2.VALUE= ELSE THISFORM.TEXT2.VALUE="" MESSAGEBOX("查无此人!") ENDIF
Command2 的 click 事件
THISFORM.RELEASE
9