SET ENGINEBEHAVIOR 70
USE s:\bo
SELECT 班级,学号 FROM s:bo GROUP BY 1 INTO CURSOR mytemp readw
REPLACE ALL 学号 WITH 0
SELECT bo
LOCK()
SCAN
REPLACE 学号 WITH getxh(班级)
ENDSCAN
FUNCTION getxh
PARAMETERS xh
SELECT mytemp
LOCATE FOR ALLTRIM(班级)=ALLTRIM(xh)
REPLACE 学号 WITH 学号+1
n=学号
SELECT bo
RETURN n
ENDFUNC
[
本帖最后由 qjbzjp 于 2010-9-18 11:11 编辑 ]