您所在位置：主题：求教：循环自动编号的问题
yin710
[专家分：0] 发布于 2012-04-03 08:54:00
各位老师好，有个问题，001-005循环自动编号的问题。上个贴是人员循环，可能没有说清楚了。没老师回答。
现在按自动编号来提。谢谢老师回答。
select sld
locate for 日期=date()
if found()=.f.
thisform.text1.value=alltrim('BH001')
else
select max(编号) from sld into array a
i=val(substr(a(1),3))+1
thisform.text1.value=alltrim('BH'+padl(alltrim(str(i,3)),3,'0'))
endif
这个编号能不能在当前日期里从001-002-003..-005-001-002...-005...循环呢？怎么做呢？
现在按自动编号来提。谢谢老师回答。
select sld
locate for 日期=date()
if found()=.f.
thisform.text1.value=alltrim('BH001')
else
select max(编号) from sld into array a
i=val(substr(a(1),3))+1
thisform.text1.value=alltrim('BH'+padl(alltrim(str(i,3)),3,'0'))
endif
这个编号能不能在当前日期里从001-002-003..-005-001-002...-005...循环呢？怎么做呢？
