[求助]如何生成随机长度的WBS编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何生成随机长度的WBS编号

共有1985人关注过本帖树形打印复制链接主题：[求助]如何生成随机长度的WBS编号

chnfo

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

加好友

发短信

等级：九尾狐帖子：2202 积分：18130 威望：0 精华：0 注册：2011/11/26 20:21:00

[求助]如何生成随机长度的WBS编号 发帖心情

Post By：2016/7/29 11:43:00 [只看该作者]

因做试验数据，要生成大量的随机的分解结构。

例如

1.1

1.1.1

1.1.1.1

1.1.1.2

1.1.1.3

1.1.2

1.1.3

1.1.3.1

1.1.3.1.1

1.1.2.1.2

1.2

……

即：每一个节点的直属下级节点的个数并不完全相同；即使共有一个父节点，子节点有的有下级节点，有的没有。

这个该如何实现呢？

[此贴子已经被作者于2016/7/29 11:43:09编辑过]

cbt

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

加好友

发短信

等级：二尾狐帖子：567 积分：4194 威望：0 精华：0 注册：2015/5/13 8:32:00

Post By：2016/7/29 12:12:00 [只看该作者]

For i As Integer = 1 To 3
    Dim str As String = "1." &i
    output.show(str)
    For i2 As Integer = 1 To 3
        Dim str2 As String = str & "." & i2
        If Rand.Next(2)>0 Then
            output.show(str2)
            Continue For
        End If

        For i3 As Integer = 1 To 3
            Dim str3 As String = str2 & "." & i3
            If Rand.Next(8)> 0 Then
                output.show(str3)
            End If
        Next
    Next
Next

cbt

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

加好友

发短信

等级：二尾狐帖子：567 积分：4194 威望：0 精华：0 注册：2015/5/13 8:32:00

Post By：2016/7/29 12:38:00 [只看该作者]

Dim tv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
tv.Nodes.Clear
Dim nd As WinForm.TreeNode = tv.Nodes.Add("1")
For i As Integer = 1 To 3
    Dim str As String = "1." &i
    Dim nd2 As WinForm.TreeNode = nd.Nodes.Add(i)
    For i2 As Integer = 1 To 3
        Dim str2 As String = str & "." & i2
        Dim nd3 As WinForm.TreeNode
        If Rand.Next(2)>0 Then
            nd3 = nd2.nodes.Add(i2)
            Continue For
        End If
        For i3 As Integer = 1 To 3
            Dim str3 As String = str2 & "." & i3
            If Rand.Next(8)> 0 Then
                If nd3 IsNot Nothing Then
                    nd3.nodes.Add(i3)
                End If
            End If
        Next
    Next
Next
tv.ExpandAll