以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于窗口中的下来目录树问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61239)
--  作者：ypp1420
--  发布时间：2014/12/9 15:06:00
--  关于窗口中的下来目录树问题
老师好：我在一个窗口中做了一个下拉目录树，节点为三层，dropdownbox ；名称为：使用地点  
我的目的是选中了第三层节点后，第三层节点的内容直接添加到 dropdownbox 中
在目录树窗口 nodemouseclick 中设置如下事件：
If e.Node.Level = 2 Then \'如果单击的是第三层节点
    Dim sydd As WinForm.DropDownBox = e.Form.Controls ("使用地点")
    Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow
     sydd.text = e.form.DropDownBox.Value

 e.Form.DropDownBox.CloseDropdown()
End If
执行的时候显示：找不到名称为 “使用地点” 的控件！
请指点迷津！
--  作者：ypp1420
--  发布时间：2014/12/9 15:44:00
--  
dropdownbox 控件在 材料领用窗口中，不在目录树窗口中，这个语法怎么用呢？
--  作者：有点甜
--  发布时间：2014/12/9 15:47:00
--  
If e.Node.Level = 2 Then \'如果单击的是第三层节点
    e.form.DropDownBox.Value = e.Node.Text
    e.Form.DropDownBox.CloseDropdown()
End If
--  作者：ypp1420
--  发布时间：2014/12/9 15:47:00
--  
If e.Node.Level = 2 Then \'如果单击的是第三层节点
    Dim sydd As WinForm.DropDownBox = Forms("皮带二队材料领用表").Controls ("使用地点") \'
    Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow
     sydd.text = dr("胶带机名称")
 e.Form.DropDownBox.CloseDropdown()
End If
刚刚这样调试解决了，不知道是否合理，大神指点！
--  作者：有点甜
--  发布时间：2014/12/9 15:49:00
--  

If e.Node.Level = 2 Then \'如果单击的是第三层节点
    e.form.DropDownBox.Value = e.Node.Text
    e.Form.DropDownBox.CloseDropdown()
End If
--  作者：ypp1420
--  发布时间：2014/12/9 15:53:00
--  
谢谢大神！甜版主！
--  作者：ypp1420
--  发布时间：2014/12/9 16:06:00
--  
甜版主，为什么把dropdownbox 的显示命令按钮设置成 true  下拉按钮 微调按钮设置成 false  执行后没有反应呢？
另外，我想在材料窗口中增加一个textbox控件，点击三级节点后，二级节点的内容直接输入到 该textbox控件中，控件名称为：使用车间
再次感谢！
--  作者：有点甜
--  发布时间：2014/12/9 16:25:00
--  
  上传例子
--  作者：ypp1420
--  发布时间：2014/12/9 16:48:00
--  
Dim kjmc As WinForm.textBox = Forms("皮带二队材料领用表").Controls ("车间名称") \'
Dim sydd As WinForm.DropDownBox = Forms("皮带二队材料领用表").Controls ("使用地点") \'
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow
If e.Node.Level = 2 Then \'如果单击的是第三层节点
    sydd.text = dr("胶带机名称")    
    kjmc.text = dr("车间名称")
    e.Form.DropDownBox.CloseDropdown()
End If
我刚刚想出了一个代码，能实现输入三级节点的同时，二级节点内容也自动输入了，甜大神，这代码没有漏洞吧！例子我还不会上传，嘿嘿，甜大神费心啦！
--  作者：有点甜
--  发布时间：2014/12/9 17:11:00
--  
 呃，你这样写正确。