以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  窗口目录树问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85943)

--  作者：blackzhu --  发布时间：2016/6/6 13:31:00 --       Dim filter As String     Dim dr As DataRow = e.node.DataRow     SELECT CASE e.node.Level     CASE 0         filter = "审核 =\'" & dr("审核") & "\'"     End SELECT     IF filter >＂＂then     Tables("监理招标信息").Filter = filter     end if 试试这样

--  作者：大红袍 --  发布时间：2016/6/6 14:12:00 --   Dim filter As String = "" If e.Node.text <> "显示所有行" Then     If e.node.Level = 0 Then         filter = "审核 =\'" & e.Node.Text & "\'"     End If End If Tables("监理招标信息").Filter = filter