主题：[求助]下拉目录树不能录入

请各位大狐帮助一下：下拉目录树不能录入问题，代码如下：

目录树A_AfterLoad

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree("行政区域","省|州市|县区|乡镇|居委会|村组")

目录树A_Button1_Click

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree("行政区域","乡镇|居委会|村组")

目录树A_TreeView1_NodeMouseClick

If e.Node.Level = 1 Then '如果单击的是第二层节点

    Dim ps() As String = e.Node.FullPath.Split("\")

    Dim tr As Row = Tables("个人信息").Current

    Dim dr As DataRow = DataTables("行政区域").Find("乡镇 = '" & ps(0) & "' And 居委会 = '" & ps(1) & "'")

    If dr IsNot Nothing Then 

        tr("省") = dr("省")

        tr("州市") = dr("州市")

        tr("县区") = dr("县区")

        tr("乡镇") = dr("乡镇")

        tr("居委会") = dr("居委会")

        tr("村组") = dr("村组")

        e.Form.DropDownBox.Value = tr("乡镇") 

    End If

    e.Form.DropDownBox.CloseDropdown()   '关闭下拉目录树

<!--EndFragment-->

此主题相关图片如下：目录树.png

这是开发版，同样的代码在试用版中能用，开发版就出现这个问题？？

此主题相关图片如下：为什么.png

在开发版中出现这个问题！

此主题相关图片如下：为什么？.png

If e.Node.Level = 1 Then  改为If e.Node.Level = 2 Then  还是不行？如何修改呢？

这句代码（If e.Node.Level = 1 Then  ）在试用版中运行正常，而在开发版中却不正常？

此主题相关图片如下：为什么2.png

这是在帮助文件里的代码，实现不了！到这儿卡住了，烦心呀！！

谢谢版主，晚上传例子！

谢谢版主，问题已解决，是节点数错了，没把0计算在内！