此主题相关图片如下：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编辑过]
加好友 
发短信
Post By：2016/11/2 14:09:00 [显示全部帖子]
