- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教：根节点名称的表达式 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65667)
-- 发布时间：2015/3/20 11:18:00
-- 请教：根节点名称的表达式
下图：想获得根节点（比如 010101001）的表达式 怎样写？
此主题相关图片如下：2015-03-20_111731.png
-- 发布时间：2015/3/20 11:20:00
--
目录树控件.Nodes(0).Name
-- 发布时间：2015/3/20 11:35:00
--
谢谢甜版主，但自己没有搞定。应该是有问题。
For Each dr As DataRow In DataTables("工作内容").Select("编码 = \'b.Nodes(0).Name\' And 代码 Is Not Null")
想要达到的效果是昨天 Bin 版主给后增加的目录树，放在右侧。
也就是直接在下图中修改代码
此主题相关图片如下：2015-03-20_113909.png
[此贴子已经被作者于2015/3/20 11:38:41编辑过]
-- 发布时间：2015/3/20 11:41:00
--
For Each dr As DataRow In DataTables("工作内容").Select("编码 = \'" & b.Nodes(0).Name & "\' And 代码 Is Not Null")
-- 发布时间：2015/3/20 11:41:00
--
什么意思? 昨天不是给你做好了?
-- 发布时间：2015/3/20 11:48:00
--
是放在 目录树2中 。本想改改位置的事，好做，可我自己一直没有完成。
[此贴子已经被作者于2015/3/20 11:50:11编辑过]
-- 发布时间：2015/3/20 11:56:00
--
Dim dr1 As DataRow = e.Node.DataRow
Dim b As WinForm.TreeView = e.Form.Controls("TreeView2")
b.GenerateTree("工作内容","编号","工作内容", ".","编号 like \'" & dr1("项目编码") & "%\'")
For Each n As WinForm.TreeNode In b.AllNodes
If n.Level = 1 Then
Dim dr As DataRow = n.DataRow
For Each drr As DataRow In DataTables("定额库").Select("代码 in (\'" & dr("代码").replace(";","\',\'") & "\')")
n.Nodes.Add(drr("名称"))
Next
End If
Next
For Each node As Object In b.Nodes
node.expand
Next
-- 发布时间：2015/3/20 11:58:00
--
[此贴子已经被作者于2015/3/20 14:27:05编辑过]
-- 发布时间：2015/3/20 12:13:00
--
自己看7楼，不知道你说什么。
-- 发布时间：2015/3/20 12:24:00
--
这回好了！ 谢谢甜版主！谢谢！