- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]目录树相关问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78280)
-- 发布时间：2015/12/6 10:32:00
-- [求助]目录树相关问题
1.窗口中包括导航窗口（内有目录树）及主窗口，主窗口中数据更改后需要重新刷新目录树。现在是在主窗口中通过代码（导航窗口目录树的生成代码）来完成。有无更简单的方法。是否有重新加载目录树的简单方法。
2.如截图，无论我选择目录树下的那个节点，如何获得其相对应的顶级节点的名称。如截图：我选择的地址信息，如何获得其顶级节点（耳鼻喉科）的名称。
此主题相关图片如下：360反馈意见截图16230319214428.png
[此贴子已经被作者于2015/12/6 11:22:55编辑过]
-- 发布时间：2015/12/6 13:50:00
--
1 做个按钮重新刷新一下目录树即可。
2 用 trv.SelectedNode.FullName.split("\\")(0)
-- 发布时间：2015/12/6 14:18:00
--
1、可以做一个按钮，然后模拟按钮点击 http://www.foxtable.com/help/topics/2309.htm
可以弄成内部函数，然后，哪里需要，就调用
2、
trv.SelectedNode.FullName.split("\\")(0)
-- 发布时间：2015/12/6 15:01:00
-- [求助]窗口代码问题
写内部函数是我的弱项，刷新目录树的代码如下：
Dim trv As WinForm.TreeView = Forms("导航窗口"）.Controls("TreeView1")
trv.BuildTree("基本情况","收治科室|姓名")
trv.StopRedraw \'停止绘制目录树
For Each nd As WinForm.TreeNode In trv.AllNodes \'遍历所有节点
If nd.level=1 Then
nd.Text = nd.text & "(" & nd.DataRow("patientsID") & ")"
Dim node As WinForm.TreeNode
Dim cnode As WinForm.TreeNode
node=nd.Nodes.Add("地址信息")
node=nd.nodes.add("病史资料")
node=nd.nodes.add("体征资料")
cnode=node.nodes.add("系统检查")
cnode=node.nodes.add("专科检查")
node=nd.nodes.add("检验资料")
node=nd.nodes.add("检查资料")
cnode=node.nodes.add("放射检查")
cnode=node.nodes.add("B超检查")
node=nd.nodes.add("治疗信息")
cnode=node.nodes.add("手术治疗")
cnode=node.nodes.add("非手术治疗")
node=nd.nodes.add("效果评价")
cnode=node.nodes.add("主观评价")
cnode=node.nodes.add("客观评价")
nd.nodes.add("其它资料")
End If
Next
trv.ResumeRedraw \'恢复绘制目录树
如何写？不知道传递的参数如何定义？
谢谢！
第二个问题搞定。谢谢！
[此贴子已经被作者于2015/12/6 15:05:52编辑过]
-- 发布时间：2015/12/6 15:37:00
--
导航窗口中有两个目录树，一个是treeview1，代码楼上。一个是treeview2，trv.BuildTree("基本情况","收治科室|疾病种类")。应该传递两个参数。一个是目录树名称，一个是姓名或者级别种类，是吧？
-- 发布时间：2015/12/6 16:19:00
--
搞定。传递一个参数，就是treeview就可以了。
-- 发布时间：2015/12/6 16:25:00
--
根本就不用传递产生，直接调用函数就行。
-- 发布时间：2015/12/6 16:29:00
--
就是说不用设置args这个
-- 发布时间：2015/12/6 16:32:00
--
对的
-- 发布时间：2015/12/6 16:40:00
-- [求助]窗口代码问题
另一问题，当在导航窗口中没有什么选择时，无提示，报错。代码如下：
Dim trv As WinForm.TreeView = Forms("导航").Controls("TreeView2")
Dim nd As WinForm.TreeNode = trv.SelectedNode
If nd.IsSelected = False Then
If MessageBox.Show("请选择收治科室,否则无法新增病例!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
If nd.IsSelected=False Then
Return
End If
Return
End If
Else
Dim txt As String = trv.SelectedNode.FullName.split("\\")(0)
Dim r As Row = t.AddNew()
r("收治科室")=txt
End If
这句怎么改！
截图如下：
此主题相关图片如下：360反馈意见截图16230320403642.png
[此贴子已经被作者于2015/12/6 16:42:40编辑过]