求助：目录树双击，怎么将节点信息传递给新独立窗体按钮控件，然后这个控件根据值来进行数据查找！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：111.png

目录树双击代码

If e.node.level=2 Then

Forms(e.node.text).show

End If

Dim PB As WinForm.Panel = e.Form.Controls("Panel1")

Dim Name As String = e.node.Name

Forms(Name).OPEN(-1000,-1500)

Forms(Name).BaseForm.TopLevel = False

Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None

Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill

PB.BaseControl.Controls.Clear

PB.BaseControl.Controls.add(Forms(Name).BaseForm)

一键统计代码：

Dim web As new System.Windows.Forms.WebBrowser

web.Navigate("http://www.toutiao.com/m6199680593/")

比如当前我选中瓮安检察院

那么将上述红色部分对应切换为“http://toutiao.com/m6051259851/”

下面是我在一键统计中的代码：

Dim dr As DataRow= DataTables("网址表").Find("[单位] = '& e.node.Name & '")

Dim web As new System.Windows.Forms.WebBrowser

web.Navigate(" & dr("今日头条") & ”)

MessageBox.Show(dr("今日头条"))

未将对象引用设置到对象的实例。

经过判断应当是e.node.Name没有传递过来，求解！

[此贴子已经被作者于2016/11/2 14:23:21编辑过]

Dim dr As DataRow= DataTables("网址表").Find("[单位] = '& Forms(“数控件所在窗口”).Controls("Treeview1").selectednode.Name & '")

提示未知编译错误！

这就是基础不牢的效果，这种常识性的错误自己都判断不了，而且还老犯。一秒钟能解决的问题还要等别人回复

Dim dr As DataRow= DataTables("网址表").Find("[单位] = '" & Forms("数控件所在窗口").Controls("Treeview1").selectednode.Name & "'")

Forms("主窗体").Controls("Treeview1").SelectedNode.Name 这个实现了当前节点的名称传值

有没有办法再进一步扩展一下，比如定义显示：为当前双击节点的上一个节点名称。

http://www.foxtable.com/webhelp/scr/1498.htm

http://www.foxtable.com/webhelp/scr/1984.htm

http://www.foxtable.com/webhelp/scr/0887.htm

老李你混了那么久了,这个不应该呀,你做个全局变量传递过去不就得了

全局变量 = e.node.name

Dim dr As DataRow= DataTables("网址表").Find("[单位] = '" & 全局变量 "'")

呵呵混久了中途也间隔了快一年没有操作大部分已经遗忘了之前做的学习的都没有记录保存下来，所以差不多现在又重新来，你的思路更简洁。谢谢

主题：求助：目录树双击，怎么将节点信息传递给新独立窗体按钮控件，然后这个控件根据值来进行数据查找！