现有学生表，xh字段内是空的，求VF自动生成学号的程序，以201103开头，即：201103001、201103002知道末尾
答案:1 悬赏:50 手机版
解决时间 2021-01-02 13:08
- 提问者网友：容嬷嬷拿针来
- 2021-01-01 20:23
自己写的程序，但是运行之后都是201103001，不往下继续编002、003、004等等
最佳答案
- 五星知识达人网友：一秋
- 2021-01-01 20:37
SET filt to
SET filt to left(xh,6)=h0
a0=1
DO whil .t.
IF a0<10
hjbh0=h0+'000'+str(a0,1)
ELSE
IF a0<100
hjbh0=h0+'00'+str(a0,2)
ELSE
IF a0<1000
hjbh0=h0+'0'+str(a0,3)
ENDIF
ENDIF
SEEK hjbh0
IF eof()
EXIT
ELSE
a0=a0+1
ENDIF
ENDDO
SET filt to left(xh,6)=h0
a0=1
DO whil .t.
IF a0<10
hjbh0=h0+'000'+str(a0,1)
ELSE
IF a0<100
hjbh0=h0+'00'+str(a0,2)
ELSE
IF a0<1000
hjbh0=h0+'0'+str(a0,3)
ENDIF
ENDIF
SEEK hjbh0
IF eof()
EXIT
ELSE
a0=a0+1
ENDIF
ENDDO
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯