以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助：目录树双击，怎么将节点信息传递给新独立窗体按钮控件，然后这个控件根据值来进行数据查找！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92388)
--  作者：李孝春
--  发布时间：2016/11/2 14:09:00
--  求助：目录树双击，怎么将节点信息传递给新独立窗体按钮控件，然后这个控件根据值来进行数据查找！

图片点击可在新窗口打开查看此主题相关图片如下：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编辑过]
--  作者：有点蓝
--  发布时间：2016/11/2 15:12:00
--  
Dim dr As DataRow= DataTables("网址表").Find("[单位]  = \'& Forms(“数控件所在窗口”).Controls("Treeview1").selectednode.Name & \'")
--  作者：李孝春
--  发布时间：2016/11/2 15:21:00
--  回复：（有点蓝）Dim dr As DataRow= DataTables("网址...
提示未知编译错误！
--  作者：有点蓝
--  发布时间：2016/11/2 16:21:00
--  
这就是基础不牢的效果，这种常识性的错误自己都判断不了，而且还老犯。一秒钟能解决的问题还要等别人回复

Dim dr As DataRow= DataTables("网址表").Find("[单位]  = \'" & Forms("数控件所在窗口").Controls("Treeview1").selectednode.Name & "\'")
--  作者：李孝春
--  发布时间：2016/11/2 22:25:00
--  回复：（有点蓝）这就是基础不牢的效果，这种常识性的...
Forms("主窗体").Controls("Treeview1").SelectedNode.Name  这个实现了当前节点的名称传值

有没有办法再进一步扩展一下，比如定义显示：为当前双击节点的上一个节点名称。
--  作者：有点蓝
--  发布时间：2016/11/2 22:43:00
--  
http://www.foxtable.com/webhelp/scr/1498.htm

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

http://www.foxtable.com/webhelp/scr/0887.htm
--  作者：blackzhu
--  发布时间：2016/11/3 8:56:00
--  
 老李 你混了那么久了,这个不应该呀,你做个全局变量传递过去不就得了


全局变量 = e.node.name

Dim dr As DataRow= DataTables("网址表").Find("[单位]  = \'" & 全局变量 "\'")
--  作者：李孝春
--  发布时间：2016/11/3 9:18:00
--  回复：（blackzhu） 老李 你混了那么久了,这个不...
呵呵  混久了  中途也间隔了快一年没有操作 大部分已经遗忘了 之前做的学习的都没有记录保存下来，所以差不多现在又重新来，你的思路更简洁。谢谢