以文本方式查看主题 -  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=123683)

--  作者：有点蓝 --  发布时间：2018/8/21 11:00:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目1.zip

--  作者：有点蓝 --  发布时间：2018/8/21 14:11:00 --   点击科目树节点写了什么代码？

--  作者：有点蓝 --  发布时间：2018/8/21 14:25:00 --   Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") Dim cbo As WinForm.ComboBox = e.Form.Controls("ComboBox1") Dim filter As String = "1=1 " If cbo.Text > "" Then     filter = filter & " and ZTBH=\'" & cbo.Text & "\'" End If If e.Node.Level = 0     If  e.Node.Name = "全部" Then         Tables("SJGL").Filter = filter     Else         Tables("SJGL").Filter = filter &  " and KMLB =  \'" & e.Node.text & "\'"              End If Else     Tables("SJGL").Filter = filter &  " and KMBH Like \'" & e.Node.Name & "%\'" End If