Foxtable(狐表)用户栏目专家坐堂 → 关于筛选目录树的一点问题~~跪求大神指导~...标题长才看的到~~~


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

主题:关于筛选目录树的一点问题~~跪求大神指导~...标题长才看的到~~~

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


加好友 发短信
等级:婴狐 帖子:68 积分:509 威望:0 精华:0 注册:2012/4/11 14:20:00
关于筛选目录树的一点问题~~跪求大神指导~...标题长才看的到~~~  发帖心情 Post By:2012/6/3 11:36:00 [只看该作者]

 

1、窗口的AfterLoad事件代码改为:

Dim cmd As New SQLCommand
Dim
dt As DataTable
cmd
.CommandText = "SELECT DISTINCT Year(日期) As , Month(日期) As , 产品 From {订单}"
dt
= cmd.ExecuteReader()
Dim
trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv
.BuildTree(dt, "年|月|产品")

2、目录树的NodeMouseDoubleClick事件代码改为:

Dim Value()As String
Dim
Filter As String
Dim
d1 As Date
Dim
d2 As Date
Value = e.Node.FullPath.Split("\")

Select Case
e.Node.Level
    Case
0
        Dim
y As Integer = value(0)
        d1
= New Date(y,1,1) '取得该年的第一天
       
d2 = new Date(y,12,31) '取得该年的最后一天
       
Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
    Case
1
        Dim
y As Integer = value(0)
        Dim
m As Integer = value(1)
        d1
= New Date(y, m, 1) '取得该月的第一天
       
d2 = new Date(y, m, Date.DaysInMonth(y,m)) '取得该月的最后一天
       
Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
    Case
2
        Dim
y As Integer = value(0)
        Dim
m As Integer = value(1)
        d1
= New Date(y, m, 1) '取得该月的第一天
       
d2 = new Date(y, m, Date.DaysInMonth(y,m)) '取得该月的最后一天
       
Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "# And 产品 = '" & Value(2) & "'"
End Select
Tables(
"订单").Filter = Filter

 

以上代码是帮助里面的筛选目录树,如果在该目录树的产品的后面再加一级节点,也就是实现年--月--产品---XX   应该怎么设置代码呢? 跪求帮助

[此贴子已经被作者于2012-6-3 18:30:06编辑过]

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


加好友 发短信
等级:一尾狐 帖子:427 积分:4529 威望:0 精华:0 注册:2012/3/7 23:19:00
  发帖心情 Post By:2012/6/3 13:42:00 [只看该作者]

不占地方了,也是筛选树的问题,放一起了

能实现下图的功能吗?单独将一列筛选出来,可以自由组合筛选

图片点击可在新窗口打开查看


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


加好友 发短信
等级:婴狐 帖子:68 积分:509 威望:0 精华:0 注册:2012/4/11 14:20:00
  发帖心情 Post By:2012/6/3 17:10:00 [只看该作者]

0...你这个我知道的 更新后的筛选有多个条件筛选的~~~帮助有的~~你可以去看看~

 回到顶部
帅哥哟,离线,有人找我吗?
轩辕小剑
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:68 积分:509 威望:0 精华:0 注册:2012/4/11 14:20:00
  发帖心情 Post By:2012/6/3 18:34:00 [只看该作者]

0....高手都那里去~了 吃饭了么~~求帮助啊~求帮助~~

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


加好友 发短信
等级:三尾狐 帖子:760 积分:4714 威望:0 精华:0 注册:2011/12/17 18:37:00
  发帖心情 Post By:2012/6/3 20:26:00 [只看该作者]

Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "# And 产品 = '" & Value(2) & "' And 产品 ='" & Value(3) & "'"

 回到顶部
帅哥哟,离线,有人找我吗?
轩辕小剑
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:68 积分:509 威望:0 精华:0 注册:2012/4/11 14:20:00
  发帖心情 Post By:2012/6/3 21:58:00 [只看该作者]

以下是引用jianjingmaoyi在2012-6-3 20:26:00的发言:
Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "# And 产品 = '" & Value(2) & "' And 产品 ='" & Value(3) & "'"

........5555拜谢啊~~~虽然还不知道对不对~~但是能帮我就很感谢了~~恩人~~献上菊花一枚~~图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2012/6/4 12:34:00 [只看该作者]

以下是引用轩辕小剑在2012-6-3 21:58:00的发言:

........5555拜谢啊~~~虽然还不知道对不对~~但是能帮我就很感谢了~~恩人~~献上菊花一枚~~图片点击可在新窗口打开查看

晕,干嘛不是玫瑰花呀!


 回到顶部
帅哥哟,离线,有人找我吗?
轩辕小剑
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:68 积分:509 威望:0 精华:0 注册:2012/4/11 14:20:00
  发帖心情 Post By:2012/6/4 18:56:00 [只看该作者]

e  语法不对啊~~

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/6/4 19:03:00 [只看该作者]

1、窗口的AfterLoad事件代码改为:
 
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT Year(日期) As 年, Month(日期) As 月, 产品, XX From {订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|产品|XX")

2、目录树的NodeMouseDoubleClick事件代码改为
 
Dim Value()As String
Dim Filter As String
Dim d1 As Date
Dim d2 As Date
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Dim y As Integer = value(0)
        d1 = New Date(y,1,1) '取得该年的第一天
        d2 = new Date(y,12,31) '取得该年的最后一天
        Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
    Case 1
        Dim y As Integer = value(0)
        Dim m As Integer = value(1)
        d1 = New Date(y, m, 1) '取得该月的第一天
        d2 = new Date(y, m, Date.DaysInMonth(y,m)) '取得该月的最后一天
        Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
    Case 2
        Dim y As Integer = value(0)
        Dim m As Integer = value(1)
        d1 = New Date(y, m, 1) '取得该月的第一天
        d2 = new Date(y, m, Date.DaysInMonth(y,m)) '取得该月的最后一天
        Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "# And 产品 = '" & Value(2) & "'"
   Case 3
        Dim y As Integer = value(0)
        Dim m As Integer = value(1)
        d1 = New Date(y, m, 1) '取得该月的第一天
        d2 = new Date(y, m, Date.DaysInMonth(y,m)) '取得该月的最后一天
        Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "# And 产品 = '" & Value(2) & "' And XX = '" & Value(3) & "'"
End Select
Tables("订单").Filter = Filter
[此贴子已经被作者于2012-6-4 19:03:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
轩辕小剑
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:68 积分:509 威望:0 精华:0 注册:2012/4/11 14:20:00
  发帖心情 Post By:2012/6/4 19:03:00 [只看该作者]

以下是引用jianjingmaoyi在2012-6-3 20:26:00的发言:
Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "# And 产品 = '" & Value(2) & "' And 产品 ='" & Value(3) & "'"

Dim cmd As New SQLCommand
Dim
dt As DataTable
cmd
.CommandText = "SELECT DISTINCT Year(日期) As , Month(日期) As , 产品 From {订单}"
dt
= cmd.ExecuteReader()
Dim
trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv
.BuildTree(dt, "年|月|产品")

 这个语法不需要改么~~


 回到顶部
总数 11 1 2 下一页