节点分配异常 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim RowBase As C1FlexGrid.Row = args(0).Row
Dim Node As C1FlexGrid.Node
node=RowBase.Node
For Each dr As DataRow In DataTables("项目节点明细").Select("节点代号 like '" & node.Row("节点代号") & ".%'")
    If dr("节点代号")<>node.Row("节点代号") AndAlso dr("节点代号").split(".").length=node.Row("节点代号").split(".").length+1 Then
        Dim flagin As Boolean = False
        Dim jm As String = node.Row("节点级别")
        For Each cnd As object In RowBase.Node.Nodes
            If cnd.Row("节点代号") = dr("节点代号") Then
                flagin = True
                Exit For
            End If
        Next
        If flagin = False Then
            Dim nNode = TblBase.Rows.InsertNode(RowBase.Node.Row.Index + RowBase.Node.Nodes.Length + 1, RowBase.Node.Level + 1)
            For Each c As Col In Tables("节点进度表").Cols
                nNode.Row(c.name) = dr(c.name)
            Next
            Functions.Execute("loop", nnode)
        End If
    End If
Next

nuoyan88	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	节点分配异常 Post By：2018/4/4 21:41:00 [只看该作者] 用户已被锁定

nuoyan88	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2018/4/4 22:11:00 [只看该作者] 用户已被锁定

nuoyan88	小大 4楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2018/4/5 11:35:00 [只看该作者] 用户已被锁定

nuoyan88	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2018/4/5 11:49:00 [只看该作者] 用户已被锁定

nuoyan88	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2018/4/10 9:55:00 [只看该作者] 用户已被锁定

nuoyan88	小大 9楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2018/4/11 7:59:00 [只看该作者] 用户已被锁定

主题：节点分配异常