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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 各位老师给我决绝一个问题可以吗

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 569 人关注过本帖

标题：各位老师给我决绝一个问题可以吗

只看楼主加入收藏

李丽0991

等　级：新手上路
帖　子：2
专家分：0
注　册：2014-6-24

楼主

问题点数：0 回复次数：5

各位老师给我决绝一个问题可以吗

图片附件: 游客没有浏览图片的权限，请登录或注册

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

搜索更多相关主题的帖子: 流水号　审计　项目　

2014-06-25 10:31

w360989426

等　级：职业侠客
威　望：4
帖　子：228
专家分：301
注　册：2013-11-12

第 2 楼

得分:0

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

2014-06-25 11:32

李丽0991

等　级：新手上路
帖　子：2
专家分：0
注　册：2014-6-24

第 3 楼

得分:0

给自动编号怎么处理

2014-07-01 11:48

chen3523

等　级：贵宾
威　望：33
帖　子：223
专家分：1165
注　册：2013-2-12

第 4 楼

得分:0

自动+1可以吗？

调试失败3次后，关机睡觉，当醒来时多有收获。

2014-07-01 17:10

vbvcr51

等　级：贵宾
威　望：18
帖　子：364
专家分：1724
注　册：2013-11-3

第 5 楼

得分:0

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

2014-07-01 20:08

yangfrancis

等　级：贵宾
威　望：141
帖　子：1510
专家分：7661
注　册：2014-5-19

第 6 楼

得分:0

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

2014-07-06 22:48

快速回复：各位老师给我决绝一个问题可以吗