主题：授权求助

老师，麻烦看看我以下代码授权，为什么加都集合有两个26，没有2，代码如下：

If Tables("用户管理").rows.Count=0 Then Return
Dim s As String = Nothing
'加入到可见集合
Dim tr1 As WinForm.TreeView = e.Form.Controls("TreeView3")
For Each nd As WinForm.TreeNode In tr1.AllNodes  '同步子节点选中状态
    If nd.Checked=True Then
        Dim dr As DataRow = DataTables("导航").Find("分类 = '" & nd.name & "' Or 分组 = '" & nd.name & "' or 名称 = '" & nd.name & "'")
        If dr IsNot Nothing Then
            If s<>Nothing Then s=s & ","
            s=s & dr("编号")
        End If
    End If
Next
Tables("用户管理").Current("菜单可见集合")=s

 

导航表结构和加载到集合结果如下：

  

此主题相关图片如下：导航表结构.png


此主题相关图片如下：集合.png