以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  目录树节点 第四个双击以后是空白呢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192080)

--  作者：lfz123 --  发布时间：2024/5/28 10:24:00 --  目录树节点 第四个双击以后是空白呢   为什么目录树节点 第四个双击以后是空白呢  此主题相关图片如下：微信截图_20240528101817.png   Dim filter As String        Dim lx As String = E.node.DataRow("状态")     Dim nm As String = E.node.DataRow("申报公司")     Dim y As Integer = E.node.DataRow("年")     Dim m As Integer = E.node.DataRow("月")     Select Case e.Node.Level         Case 0             Filter = "状态 = \'"& lx & "\'"         Case 1             Filter = "状态 = \'"& lx & "\'And 申报公司 = \'"& nm & "\'"         Case 2             Filter = "状态 = \'"& lx & "\'And 申报公司 = \'"& nm & "\'and Year(出保日期) = " & y         Case 3             Filter = "状态 = \'"& lx & "\'And 申报公司 = \'"& nm & "\'and Year(出保日期) = " & y & " And Year(出保日期) = " & m MessageBox.Show(filter)     End Select DataTables("保险清单").loadFilter = Filter DataTables("保险清单").load()

--  作者：有点蓝 --  发布时间：2024/5/28 10:33:00 --   Case 3             Filter = "状态 = \'"& lx & "\'And 申报公司 = \'"& nm & "\'and Year(出保日期) = " & y & " And month(出保日期) = " & m