求高手用VB在我的客户编码自动生成HL00000X 第二个代码自动生成+1的...
发布网友
发布时间：2024-09-28 23:30
共2个回答
热心网友
时间：2024-10-20 00:13
事件里面写
textbox1.text="HL" & Right("00000" & UserNum,5) & "X"
UserNum=UserNum+1
热心网友
时间：2024-10-20 00:15
public function getnextnum(byval strnow as string)as string
if strnow=vbnullstringthen exit function
if len(strnow)<=2 then exit function
on error resume next '必要
dim strleft as string
strleft=left$(strnow,2)
dim strright as string
strright=mid$(strnow,3)
dim lngnum as long
lngnum=clng(strright) '前面的必要是防止此步出错
dim strout as string
getnextnum=strleft+format("000000",strright)
end function
调用时就是
text1.text=getnextnum(HL00000X)
