此函数,用于生成流水号.
sub subcode
dim startyear
dim startmon
dim startday
dim code
startyear = <%=year(now())%>
startmon = <%=month(now())%>
startday = <%=day(now())%>
if startmon<10 then
startmon="0"&month(date)
end if
if startday<10 then
startday="0"&day(date)
end if
if startyear&startmon&startday<>left(<%=(rs_newcode.Fields.Item("maxer").Value)%>,8) then
code=001
else
code=int(mid(<%=(rs_newcode.Fields.Item("maxer").Value)%>,9,3))+1
end if
if len(code)=1 then
code="00"&cstr(code)
end if
if len(code)=2 then
code="0"&cstr(code)
end if
Form1.goods_code.value = startyear & startmon&startday&cstr(code)
end sub