各位老师给我决绝一个问题可以吗 - 编程论坛

#2

w3609894262014-06-25 11:32

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

#3

李丽09912014-07-01 11:48

给自动编号怎么处理

#4

chen35232014-07-01 17:10

自动+1可以吗？

#5

vbvcr512014-07-01 20:08

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

#6

yangfrancis2014-07-06 22:48

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