主题：关于窗口中的下来目录树问题

请指点迷津！

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

刚刚这样调试解决了，不知道是否合理，大神指点！

另外，我想在材料窗口中增加一个textbox控件，点击三级节点后，二级节点的内容直接输入到 该textbox控件中，控件名称为：使用车间

再次感谢！

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

我刚刚想出了一个代码，能实现输入三级节点的同时，二级节点内容也自动输入了，甜大神，这代码没有漏洞吧！例子我还不会上传，嘿嘿，甜大神费心啦！