| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]移除FullPath上的目录树节点 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124369) |
| -- 作者：blsu33 -- 发布时间：2018/9/5 9:42:00 -- [求助]移除FullPath上的目录树节点 老师，标注颜色的部分怎么改好？ .NET Framework 版本：2.0.50727.8935 Foxtable 版本：2018.8.30.1 错误所在事件：窗口,ga0101,TabControl1,SelectedIndexChanged 详细错误信息： 未将对象引用设置到对象的实例。 Dim tbl As WinForm.TabControl = e.Form.Controls("TabControl1") Dim pg As WinForm.TabPage pg=tbl.SelectedPage Dim dt As DataTable=DataTables("fa0110") If pg.name<>"00" And pg.name<>"99" Then dt.LoadFilter="bmgz Like \'"& pg.name &"%\'" Else dt.LoadFilter="" End If dt.Load() Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.StopRedraw trv.Nodes.Clear Functions.Execute("za_ck_addtrvfind",trv,dt.name) If pg.name="99" Then Dim nodnames As List (of String)=DataTables("gl0101").GetValues("account") For Each nod As WinForm.TreeNode In trv.Nodes If nod.Nodes.count=0 Then If nodnames.Contains(nod.name.split(" ")(0))=False Then For Each noditem As String In nod.FullPath trv.Nodes.Remove(trv.Nodes(noditem)) Next End If End If Next End If trv.ResumeRedraw |
| -- 作者：有点甜 -- 发布时间：2018/9/5 9:53:00 -- 1、不能直接delete？
nod.delete
2、如果是删除子节点 nod.nodes.clear |