按照treeview的结果进行筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 按照treeview的结果进行筛选

共有1569人关注过本帖树形打印复制链接主题：按照treeview的结果进行筛选

lur320

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：969 积分：8532 威望：0 精华：0 注册：2015/8/12 16:28:00

按照treeview的结果进行筛选 发帖心情

Post By：2018/3/23 11:37:00 [只看该作者]

Dim times As new List(of Date)

Dim tr As WinForm.TreeView=e.Form.Controls("TreeView1")

For Each nd As WinForm.TreeNode In tr.AllNodes

If nd.Level=1 AndAlso nd.Checked=True Then

times.Add(CDate(nd.name))

End If

Next ‘’将treeview的选择的日期组成一列

问题在于最后一行，怎么在当前列筛选出日期等于treeview选中的那些行？

CurrentTable.filter="'" & CurrentTable.Cols(CurrentTable.ColSel) & "In" & times & "'"

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/23 11:47:00 [只看该作者]

Dim tr As WinForm.TreeView=e.Form.Controls("TreeView1")
Dim str As String = "1=2"
Dim name As String = CurrentTable.Cols(CurrentTable.ColSel).name
For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Level=1 AndAlso nd.Checked=True Then
        str &= " or " & name & " = #" & CDate(nd.name) & "#"
    End If
Next
msgbox(str)
CurrentTable.filter=str

lur320

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：969 积分：8532 威望：0 精华：0 注册：2015/8/12 16:28:00

Post By：2018/3/23 11:49:00 [只看该作者]

好吧，组成一个超长的string判断语句。。。。

下一主题 >> << 上一主题

主题：按照treeview的结果进行筛选