自动显示上级编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动显示上级编号

共有2387人关注过本帖树形打印复制链接主题：自动显示上级编号

kaituozhe

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

自动显示上级编号 发帖心情

Post By：2017/5/26 15:47:00 [只看该作者]

5001.01.01.02，这是会计科目的编号，各级编号的位数不一定统一，我想通过代码实现找到上级编号，这个科目编号的上级编号分别5001.01.01、5001.01、5001，怎么能够通过代码实现呢，比如当输入5001.01.01.02时，会在另一列自动上级编号为5001.01.01

blsu33

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/5/26 16:15:00 [只看该作者]

定义规则有了规则才能找上级需要用表定义规则，例如

编码规则表

表名字段名编码规则

会计科目科目编码 4222

然后根据编码规则的长度去一步步筛选

Dim dr As DataRow=DataTables("编码规则表").DataRows(0)

Dim str As String="5001.01.01.02"

Dim sum As Integer

For i As Integer = 0 To dr("编码规则").Length - 1

sum += dr("编码规则").SubString(i,1)

If str.length < sum Then

Exit For

Else

Dim str2 As String=str.Replace(".","").SubString(0,sum)

MessageBox.Show(“各级是：” & str2)

End If

kaituozhe

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2017/5/26 17:13:00 [只看该作者]

如果没有规则能否实现

nothing

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：517 积分：3383 威望：0 精华：0 注册：2013/1/3 17:08:00

Post By：2017/5/26 18:35:00 [只看该作者]

有规则就按规则来，比如说用“.”作为标记，真的没有规则，在表中管理

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/26 20:17:00 [只看该作者]

Dim str As String="5001.01.01.02"

Dim arr() As String= str.Split(".")

str = ""

For i As Integer = 0 To arr.Length - 1

str &= "." & arr(i)

Output.Show("第" & i+1 & "级:" & str.TrimStart("."))

下一主题 >> << 上一主题

主题：自动显示上级编号