Foxtable(狐表)用户栏目专家坐堂 → [求助]筛选树如何加入筛选


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

主题:[求助]筛选树如何加入筛选

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


加好友 发短信
等级:八尾狐 帖子:1838 积分:13012 威望:0 精华:0 注册:2013/6/10 9:23:00
[求助]筛选树如何加入筛选  发帖心情 Post By:2017/4/9 18:11:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("报价明细表", "客户编号")
trv.Nodes.Insert("显示所有行",0)

 

上面代码中客户编号如何加入筛选, 只显示未订购的并只显示今年的报价的客户编号

 

 

'-----------------------------筛选本年度未报价----------------------------------------
Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "已订购 = false and 报价日期 >= #" & dt1 & "# And 报价日期 <= #" & dt2 & "#"
Tables("报价未订购_报价明细表").Filter = Filter
'-----------------------------筛选本年度的报价----------------------------------------


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/9 20:36:00 [只看该作者]

不是很简单嘛?

 

Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "已订购 = false and 报价日期 >= #" & dt1 & "# And 报价日期 <= #" & dt2 & "#"

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("报价明细表", "客户编号", filter)
trv.Nodes.Insert("显示所有行",0)


 回到顶部