以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]目录树求助  (http://foxtable.net/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