Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]网络编号公式


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

主题：[求助]网络编号公式
帅哥哟，离线，有人找我吗？
wusim
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：390 积分：3168 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2015/5/10 13:16:00 [只看该作者]

最后一位可以加上去了，但是我要求是各自类别的顺序号各自增加，如：C150000１C、C1500002C、C150000３C等一路增加，C150000１D、C150000２D、C150000３D等一路增加。

 

Dim ef As String = ""

If dr("类别") = 1 Then

    ef = "C"

ElseIf dr("类别") = 2 Then

    ef = "D"

EndIf

 

如果类别第一个中方字符包含铜　ef ="Ｃ"　其他ef ="Ｄ"　怎样用Substring([类别], １, ２)＝"铜"　更改？

[此贴子已经被作者于2015/5/10 14:07:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 1、去到编号表，加入一列 后缀列；有什么多少个后缀，就加入多少行数据；

 

 2、下面这段代码写到前面去

 

Dim ef As String = ""

If dr("类别") = 1 OrElse dr("类别") Like "铜*" Then

    ef = "C"

Else

    ef = "D"

EndIf

 

 3、

 

Where [前缀] = '" & pf & "'" 改成 Where [前缀] = '" & pf & "' and 后缀 = '" & ef & "'"

 

"Insert Into 编号 (前缀, 顺序号) Values('" & pf & "',1)" 改成 "Insert Into 编号 (前缀, 顺序号,后缀) Values('" & pf & "',1, '" & ef & "')"

 

Where [顺序号] = " & Key & " And [前缀] = '" & pf & "'" 改成 Where [顺序号] = " & Key & " And [前缀] = '" & pf & "' and 后缀 = '" & ef & "'"
[此贴子已经被作者于2015/5/10 14:47:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wusim
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：390 积分：3168 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2015/5/10 15:54:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:编号.rar

 

显示错误


 


图片点击可在新窗口打开查看此主题相关图片如下：01.jpg
图片点击可在新窗口打开查看

 


 


图片点击可在新窗口打开查看此主题相关图片如下：02.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/5/10 15:55:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wusim
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：390 积分：3168 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2015/5/10 16:10:00 [只看该作者]

将后缀更改位置　显示以下错误

 


图片点击可在新窗口打开查看此主题相关图片如下：01.jpg
图片点击可在新窗口打开查看



图片点击可在新窗口打开查看此主题相关图片如下：02.jpg
图片点击可在新窗口打开查看


 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:编号.rar

[此贴子已经被作者于2015/5/10 16:12:33编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建 文本文档.txt

 

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


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

看15楼，你写错了

 

Where [前缀] = '" & pf & "'" 改成 Where [前缀] = '" & pf & "' and 后缀 = '" & ef & "'"


 回到顶部
帅哥哟，离线，有人找我吗？
wusim
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：390 积分：3168 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2015/5/10 16:29:00 [只看该作者]

可以了，现在是项目中有多个表需要进行类似的编号，我增加了And 表名 = '" & nm & "'"
但是出现错误　，后段变注释，哪里出问题

 

 


图片点击可在新窗口打开查看此主题相关图片如下：03.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

不用管，&" 之间要有空格。再有

 

 "Insert Into 编号 (前缀, 顺序号) Values('" & pf & "',1)" 改成 "Insert Into 编号 (前缀, 顺序号,后缀,表名) Values('" & pf & "',1, '" & ef & "', '" & nm & "')"

[此贴子已经被作者于2015/5/10 16:38:27编辑过]
 回到顶部
总数 18 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 7 次数据查询