Foxtable(狐表)用户栏目专家坐堂 → 关于多选筛选树


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

主题:关于多选筛选树

帅哥哟,离线,有人找我吗?
玩具人
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:292 威望:0 精华:0 注册:2009/8/24 14:51:00
关于多选筛选树  发帖心情 Post By:2019/2/11 21:01:00 [只看该作者]

老师新年好!
请教一下,下边例子中,为什么CASE 2和CASE 3里,按年月筛选后的结果不是多选,而是只保留一个选项。
我想实现的结果是可以显示同一个联系人跨年度跨月份的记录。
比如,筛选后显示2018年11月和2019年1月的记录,
但以下代码筛选的结果只能显示其中一个月的记录,无法实现多选。

Dim trv As WinForm.TreeView = e.Sender
Dim flt As String

Dim ids As String
Dim nd0 As WinForm.TreeNode
Dim pd As WinForm.TreeNode
For Each nd0 In e.node.allNodes '清除子节点的选中标记
    nd0.Checked = False
Next
pd = e.Node.ParentNode
Do While pd IsNot Nothing '清除父节点的选中标记
    pd.Checked = False
    pd = pd.ParentNode
Loop
For Each nd0 In trv.AllNodes
    pd = nd0
    Do While pd IsNot Nothing
        If pd.Checked  Then
            If ids > "" Then
                ids= ids &  ","
            End If
            ids = ids & "'" & nd0.name & "'"
            Exit Do
        Else
            pd = pd.ParentNode
        End If
    Loop
Next

Dim Year As Integer = e.Node.DataRow("年")
Dim Month As Integer = e.Node.DataRow("月")
Dim d1 As Date = New Date(Year,1,1) '取得该年的第一天
Dim d2 As Date= new Date(Year,12,31) '取得该年的最后一天
Dim dm1 As Date= New Date(Year, Month, 1) '取得该月的第一天
Dim dm2 As Date= new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天

For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        If flt > "" Then
            flt = flt & " or "  '注意用or而不是And
        End If
        
        Select Case nd.Level
            Case 0
                flt =  flt & "( 类型 = '" & nd.DataRow("类型") & "')"
            Case 1
                flt =  flt & "( 类型 = '" & nd.DataRow("类型") & "' And 联系人 = '" & nd.DataRow("联系人") & "')"
            Case 2
                flt  = flt & "( 类型 = '" & nd.DataRow("类型") & "' And 联系人 = '" & nd.DataRow("联系人") & "' AND 日期 >= #" & d1 & "# And 日期 <= #" & d2 & "# )"
            Case 3
                flt  = flt & "( 类型 = '" & nd.DataRow("类型") & "' And 联系人 = '" & nd.DataRow("联系人") & "' AND 日期 >= #" & dm1 & "# And 日期 <= #" & dm2 & "# )"
        End Select
    End If
Next

Dim T3 As WinForm.Table = e.Form.Controls("Table3")
T3.Table.Filter = flt

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:25028 积分:127688 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/11 21:24:00 [只看该作者]

msgbox(flt) '看看最后生成的条件是怎么样的?

 回到顶部
帅哥哟,离线,有人找我吗?
玩具人
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:292 威望:0 精华:0 注册:2009/8/24 14:51:00
  发帖心情 Post By:2019/2/11 22:55:00 [只看该作者]

谢谢老师指导!

问题已解决。


 回到顶部