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

--  作者：jamhuton --  发布时间：2018/8/30 15:13:00 --  目录树 Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree("开票申请", "月份|业务分类|客户名称|业务类型") trv.Nodes.Insert("显示所有行",0) "显示所有行"在目录树上没有显示。。

--  作者：jamhuton --  发布时间：2018/8/30 15:15:00 --   此主题相关图片如下：1.png

--  作者：jamhuton --  发布时间：2018/8/30 15:17:00 --   Dim Filter As String Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行 If e.Node.Text <> "显示所有行" Then     Select Case e.Node.Level         Case 0             Filter = "[月份] = \'" & dr("月份") & "\'"         Case 1             Filter = "[月份] = \'" & dr("月份") & "\' And [业务分类] = \'" & dr("业务分类") & "\'"         Case 2             Filter = "[月份] = \'" & dr("月份") & "\' And [业务分类] = \'" & dr("业务分类") & "\' And [客户名称] = \'" & dr("客户名称") & "\'"         Case 3             Filter = "[月份] = \'" & dr("月份") & "\' And [业务分类] = \'" & dr("业务分类") & "\' And [客户名称] = \'" & dr("客户名称") & "\'And [业务类型] = \'" & dr("业务类型") & "\'"     End Select End If Tables("开票申请").Filter = Filter

--  作者：有点甜 --  发布时间：2018/8/30 15:20:00 --   测试了一下，代码没问题，具体项目发上来测试。