如何在树形控件中添加新节点时实现默认显示该新节点

guohua　发表于：2011-11-02 16:38:26 　

复制

各位高手，我是一个access的初学者，最近用treeview控件实现动态添加节点，但添加新节点时却不能把该新节点设为当前选中的节点，也使用过.selected=true 但仍不能解决，恳请各位高手看看我的程序程序，给予帮助，谢谢！

点击下载此附件

Top

guohua 发表于：2011-11-02 16:40:48

补充：

If CLType_NO = "1" Then '预先定义好的:NO.1，第3位向后的字符，所以是1
.Nodes.Add "NO.1", 4, "NO." & CLType_NO, NewCLTypeName, "K1", "K2"

            Else
               .Nodes.Add .SelectedItem.Key, 4, "NO." & CLType_NO, NewCLTypeName, "K1", "K2"

              Forms("docMain")!TreeView0.Nodes.Selected = True
            End If

如何修改 Forms("docMain")!TreeView0.Nodes.Selected = True 这行代码？

谢谢各位！！

Top

风行发表于：2011-11-02 16:53:39

            Set gocxTreeView = Screen.ActiveControl.Object
            Set objNode = gocxTreeView.Nodes.Add("K" & gstrSelectedID, 4, "K" & strTemp, strNew)
            objNode.Selected = True

类似这样

Top

西出阳关无故人发表于：2011-11-02 22:47:48

Forms("docMain")!TreeView0.Nodes(N).Selected = True -----N为你想要选中的节点

Top

西出阳关无故人发表于：2011-11-02 23:13:56

参考(红色为添加或修改的，其余均为原有代码)：

         '判断是否是顶层
             If CLType_NO = "1" Then '预先定义好的:NO.1，第3位向后的字符，所以是1
                .Nodes.Add "NO.1", 4, "NO." & CLType_NO, NewCLTypeName, "K1", "K2"

            Else
               .Nodes.Add .SelectedItem.Key, 4, "NO." & CLType_NO, NewCLTypeName, "K1", "K2"
              Dim I As Long

For I = 1 To Forms("docMain")!TreeView0.Nodes.Count

                If Forms("docMain")!TreeView0.Nodes(I).Key = "NO." & CLType_NO Then   '----------
                  Forms("docMain")!TreeView0.Nodes(I).Selected = True
                  Exit For

End If

Next I
End If

Top

guohua 发表于：2011-11-03 08:29:57

谢谢，各位！！

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

如何在树形控件中添加新节点时实现默认显示该新节点