各位老师我的目的项目编号定于项目流水号连接项目年份连接审计内容然后最后面4位数字  比如生成的项目编号65292419850010001 怎么生成

dim 项目编号 as string
项目编号=项目流水号&项目年份&项目编号
不给点数是不对的行为

给自动编号怎么处理

自动+1可以吗？

combo2.text & text1.text & val(text3.text)+1

dim LastDigits%
select case Len(Str(LastDigits))
case 1
  txtXiangMuBianHao.text = txtLiuShuiHao.text + comboXiangMuNianFen.txt + comboShengJiNeiRong.txt + "000" + Str(LastDigits)
case 2
  txtXiangMuBianHao.text = txtLiuShuiHao.text + comboXiangMuNianFen.txt + comboShengJiNeiRong.txt + "00" + Str(LastDigits)
case 3
  txtXiangMuBianHao.text = txtLiuShuiHao.text + comboXiangMuNianFen.txt + comboShengJiNeiRong.txt + "0" + Str(LastDigits)
case 4
  txtXiangMuBianHao.text = txtLiuShuiHao.text + comboXiangMuNianFen.txt + comboShengJiNeiRong.txt + Str(LastDigits)
case else
  txtXiangMuBianHao.text = txtLiuShuiHao.text + comboXiangMuNianFen.txt + comboShengJiNeiRong.txt + R(Str(LastDigits),4)
end select