If e.Node.Level = 2 Then \'如果单击的是第三层节点
    Dim tr As Row
    Dim dr As DataRow = DataTables("功能分类目录树").find("功能分类代码 = \'" & e.Node.Name & "\'")    \' 据节点名称查表
    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("功能分类项名")
    tr("功能分类_名称") = dr("功能分类名称")
    e.Form.DropDownBox.Value = tr("功能分类代码")

    e.Form.DropDownBox.CloseDropdown()
End If

上面代码是绑定状态的代码，如果DropDownBox控件不绑定表格，上面代码应该如何改？？？？？