Question

VFP自动生成学号程序，表里有学生姓名，学号，性别，专业等字段，其中学号字段为空

根据不同的专业编制学号，如：专业共有201，203，303三个
学号编排规则：201103 +（201专业用50表示，203专业用51表示，303专业用62表示）+三位序号
最终学号如下：20110350001直到最后一个人；20110351001直到最后；20110362001直到最后

Answer 1

use 库文件名
A=1:B=1:C=1
do while .not.eof()
Do case
case 专业="201"
repl 学号 with "20110350"+right("00"+ltrim(str(A)),3)
A=A+1
case 专业="203"
repl 学号 with "20110351"+right("00"+ltrim(str(B)),3)
B=B+1
case 专业="303"
repl 学号 with "20110362"+right("00"+ltrim(str(C)),3)
C=C+1
Endcase
skip
enddo