Foxtable(狐表)用户栏目专家坐堂 → 请问大侠,这样的筛选条件按照说明书的目录树设置就不现实目录树呢?这是为什么?


  共有4110人关注过本帖平板打印复制链接

主题:请问大侠,这样的筛选条件按照说明书的目录树设置就不现实目录树呢?这是为什么?

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


加好友 发短信
等级:三尾狐 帖子:633 积分:6320 威望:0 精华:0 注册:2011/5/8 13:21:00
请问大侠,这样的筛选条件按照说明书的目录树设置就不现实目录树呢?这是为什么?  发帖心情 Post By:2013/11/28 18:49:00 [只看该作者]

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select 所在园区, Year(盘点日期) As 年, Month(盘点日期) As 月, Count([_Identify]) As 订单数 FROM {盘点明细} Group By 所在园区, Year(盘点日期), Month(盘点日期) HAVING 所在园区 = '物流中心总部' "
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim Value()As String
    Dim Filter As String
    Dim d1 As Date
    Dim d2 As Date
    Value = nd.FullName.Split("\") '注意这里用FullName属性,不能用FullPath属性
    Select Case nd.Level
        Case 0
            nd.text = nd.text & "年"
            Filter = "年 = " & value(0)
        Case 1
            nd.text = nd.text & "月"
            Filter = "年 = " & value(0) & " And 月 = " & value(1)
    End Select
    nd.Text = nd.text & "(" & dt.Compute("Sum(订单数)",Filter) & "条)"
Next
trv.Nodes.Insert("加载所有行","加载所有行(" & dt.Compute("Sum(订单数)") & "条)",0)
trv.ResumeRedraw

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