以文本方式查看主题

-  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