Foxtable(狐表)用户栏目专家坐堂 → 目录树节点 第四个双击以后是空白呢


  共有1466人关注过本帖树形打印复制链接

主题:目录树节点 第四个双击以后是空白呢

美女呀,离线,留言给我吧!
lfz123
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:530 积分:4613 威望:0 精华:0 注册:2018/3/24 18:04:00
目录树节点 第四个双击以后是空白呢  发帖心情 Post By: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()

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110554 积分:562660 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/28 10:33:00 [只看该作者]

Case 3
            Filter = "状态 = '"& lx & "'And 申报公司 = '"& nm & "'and Year(出保日期) = " & y & " And month(出保日期) = " & m

 回到顶部