以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  按照treeview的结果进行筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116361)

--  作者：lur320 --  发布时间：2018/3/23 11:37:00 --  按照treeview的结果进行筛选 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 & "\'"

--  作者：有点甜 --  发布时间：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 --  发布时间：2018/3/23 11:49:00 --   好吧，组成一个超长的string判断语句。。。。