- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教：如何判断目录树的最末级节点？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65734)
-- 发布时间：2015/3/21 14:55:00
-- 请教：如何判断目录树的最末级节点？
IF 最末级节点 THEN
-- 发布时间：2015/3/21 14:57:00
--
if nd.nodes.count<0 then
end if
-- 发布时间：2015/3/21 15:20:00
--
加入红色代码后，没有反应了。
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.nodes.count < 0 Then
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
b.ExpandAll()
End If
Next
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2015/3/21 15:26:00
--
你要干嘛
-- 发布时间：2015/3/21 15:28:00
--
if e.Node.nodes.count=0 then
-- 发布时间：2015/3/21 15:30:00
--
1、在目录树1 窗口只能点击最末级节点，在目录树2窗口 生成 相应的目录树
2、点击其他节点无效，防止加载的内容过多。
-- 发布时间：2015/3/21 15:35:00
--
看5楼
-- 发布时间：2015/3/21 15:39:00
--
谢谢 Bin 版主 ！好用了 ！