以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]通用下拉目录树问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145074)
--  作者：huanglan
--  发布时间：2020/1/7 16:28:00
--  [求助]通用下拉目录树问题

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控件不绑定表格，上面代码应该如何改？？？？？
--  作者：有点蓝
--  发布时间：2020/1/7 16:37:00
--  
DropDownBox控件的命名加上表名，比如：DropDownBox1_订单

nm = e.Form.DropDownBox.name.Split("_")(1)
--  作者：huanglan
--  发布时间：2020/1/7 20:23:00
--  
选择目录树后，控件绑定了单元格，与录入窗口的初衷不符合 ，想达到选择目录树的值在控件里 ，点击保存按钮后才写入单元格，而不是选择目录树的值直接写入单元格
--  作者：有点蓝
--  发布时间：2020/1/7 20:35:00
--  
那就不要绑定呀
--  作者：huanglan
--  发布时间：2020/1/7 20:37:00
--  
原代码是绑定的，我想要的代码是不绑定的，求改的代码
--  作者：有点蓝
--  发布时间：2020/1/7 20:57:00
--  
看2楼