参照帮助文件中“带查找功能的下拉目录树”设计，只是TreeView(目录树)的NodeMouseClick事件代码按照通用的下拉目录树写，请问老师，没什么不起作用？

4、TreeView(目录树)的NodeMouseClick事件代码设置为：

If e.Node.Level = 1 Then \'如果单击的是第二层节点
    Dim tr As Row
    Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow
    If e.Form.DropTable IsNot Nothing Then \'如果下拉窗口是从表中打开
        tr = e.Form.DropTable.Current \'获取此表的当前行
    Else \'如果下拉窗口是通过DropdownBox打开
        Dim nm As String = e.Form.DropDownBox.BindingField \'获取绑定的字段
        nm = nm.Split(".")(0) \'获取绑定的表名
        tr = Tables(nm).Current \'获取此表的当前行
    End If
    tr("省市") = dr("省市")
    tr("县市") = dr("县市")
    tr("区号") = dr("区号")
    tr("邮编") = dr("邮编")
    e.Form.DropDownBox.Value = tr("县市") \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    e.Form.DropDownBox.CloseDropdown()
End If