Foxtable(狐表)用户栏目专家坐堂 → 自动编号字符串截取(已解决!)


  共有2449人关注过本帖树形打印复制链接

主题:自动编号字符串截取(已解决!)

帅哥哟,离线,有人找我吗?
王嘉艺
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:366 威望:0 精华:0 注册:2015/5/5 11:00:00
自动编号字符串截取(已解决!)  发帖心情 Post By:2015/7/2 11:03:00 [只看该作者]

自动编号是根据类型和日期组合的,当类型列数据的长度不确定时,用max.Substring就没法设第一个参数,请问老师该怎么处理?
[此贴子已经被作者于2015/7/2 11:57:23编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/2 11:09:00 [只看该作者]

 前面的编号变量 bh 的值,肯定是确定的。

 

 max.SubString(bh.Length)


 回到顶部
帅哥哟,离线,有人找我吗?
王嘉艺
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:366 威望:0 精华:0 注册:2015/5/5 11:00:00
  发帖心情 Post By:2015/7/2 11:14:00 [只看该作者]

但是实际应用中比如我现在的产品有:充电桩线,电子线,特种定制阻燃线,普通线等!

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/2 11:17:00 [只看该作者]

bh前面肯定是定义了的。直接根据你的bh取位置 max.SubString(bh.Length)


 回到顶部
帅哥哟,离线,有人找我吗?
王嘉艺
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:366 威望:0 精华:0 注册:2015/5/5 11:00:00
  发帖心情 Post By:2015/7/2 11:27:00 [只看该作者]

那我就可以这样写了:
 If max > "" Then '如果存在最大单据编号
       idx = CInt(max.Substring(bh.Length+1,2)) + 1 '获得最大单据编号的后两位顺序号,并加1
Else
       dx = 1 '否则顺序号等于1
End If

[此贴子已经被作者于2015/7/2 11:42:32编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/2 11:38:00 [只看该作者]

 呃,这个意思?

 

idx = CInt(max.SubString(bh.Length-2,2))


 回到顶部
帅哥哟,离线,有人找我吗?
王嘉艺
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:366 威望:0 精华:0 注册:2015/5/5 11:00:00
  发帖心情 Post By:2015/7/2 11:54:00 [只看该作者]

直接用这个就好了!!! idx = CInt(max.Substring(bh.Length,2)) + 1 
[此贴子已经被作者于2015/7/2 11:56:49编辑过]

 回到顶部