| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 目录树筛选问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192862) |
| -- 作者：15666282205 -- 发布时间：2024/7/27 17:52:00 -- 目录树筛选问题 老师，我在目录树的代码需要加一层筛选，在领料单位下面还有领料人，点击领料单位是正常的，怎么把领料人加上?试了好多次也不行，请您指导。 Dim Filter As String = "" If e.node.Name <> "所有行" Then \'要用Name属性,不能用Text属性 Dim d1 As Date Dim d2 As Date Dim Year As Integer = e.Node.DataRow("年") Dim Month As Integer = e.Node.DataRow("月") Dim day As Integer = e.Node.DataRow("日") Dim Product As String = e.Node.DataRow("领料单位") Dim Product1 As String = e.Node.DataRow("领料人") \'Dim Product2 As String = e.Node.DataRow("考勤员") Select Case e.Node.Level Case 0 d1 = New Date(Year,1,1) \'取得该年的第一天 d2 = new Date(Year,12,31) \'取得该年的最后一天 Filter = "日期 >= \'" & d1 & "\' And 日期 <= \'" & d2 & "\'" Case 1 d1 = New Date(Year, Month, 1) \'取得该月的第一天 d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天 Filter = "日期 >= \'" & d1 & "\' And 日期 <= \'" & d2 & "\'" Case 2 Filter = "[领料单位] = \'" & e.Node.DataRow("领料单位") & "\'and Year(日期) = " & Year & " And Month(日期) = " & Month Case 3 Filter = "[领料单位] = \'" & e.Node.DataRow("领料单位") & "\'and Year(日期) = " & Year & " And Month(日期) = " & Month & " And day(日期) = " & day Case 4 上面的正常，这个是我加的，不行 Filter = "[领料单位] = \'" & e.Node.DataRow("领料单位") & "\'and [领料人] = \'" & e.Node.DataRow("领料人") & "\'and Year(日期) = " & Year & " And Month(日期) = " & Month & " And day(日期) = " & day End Select End If DataTables("材料领用表").LoadFilter = Filter DataTables("材料领用表").Load() |
| -- 作者：有点蓝 -- 发布时间：2024/7/28 19:50:00 -- 请把生成目录树的代码发上来看看 |
| -- 作者：15666282205 -- 发布时间：2024/7/29 10:26:00 -- \'\'首先生成统计表 Dim dt5 As DataTable Dim b5 As New sqlGroupTableBuilder("统计表材料领用表","材料领用表") b5.C b5.Groups.AddDef("日期",DateGroupEnum.Year,"年") b5.Groups.AddDef("日期",DateGroupEnum.Month,"月") b5.Groups.AddDef("日期",DateGroupEnum.day,"日") b5.Groups.AddDef("领料单位") b5.Groups.AddDef("序号") b5.Groups.AddDef("领料人") b5.Totals.AddDef("序号",AggregateEnum.Count,"次数") \'根据客户列来统计记录数,也就是订单数 dt5 = b5.Build(True) \'参数设置为True,生成一个临时表,不在主界面显示 \'然后根据统计表生成目录树 Dim trv5 As WinForm.TreeView = e.Form.Controls("TreeView1") trv5.BuildTree(dt5, "年|月|领料单位|领料人") trv5.StopRedraw For Each nd As WinForm.TreeNode In trv5.AllNodes Dim Year As Integer = nd.DataRow("年") Dim Month As Integer = nd.DataRow("月") Dim day As Integer = nd.DataRow("日") Dim Product51 As String = nd.DataRow("领料单位") Dim Product52 As String = nd.DataRow("序号") Dim Product6 As String = nd.DataRow("领料人") Select Case nd.Level Case 0 nd.Text = nd.text & "(" & dt5.Compute("Sum(次数)","年 = " & Year) & ")" Case 1 nd.Text = nd.text & "(" & dt5.Compute("Sum(次数)","年 = " & Year & " And 月 = " & Month) & ")" Case 2 nd.Text = nd.text & "(" & dt5.Compute("Sum(次数)","年 = " & Year & " And 月 = " & Month & " And 领料单位 = \'" & nd.Text & "\'") & ")" Case 3 nd.Text = nd.text & "(" & dt5.Compute("Sum(次数)","年 = " & Year & " And 月 = " & Month & " And 领料单位 = \'" & Product51 & "\' And 领料人 = \'" & nd.Text & "\'") & ")" Case 4 nd.Text = nd.text & "(" & nd.DataRow("次数") & ")" End Select Next trv5.Nodes.Insert("所有行","所有行(" & dt5.Compute("Sum(次数)") & ")",0) trv5.ResumeRedraw |
| -- 作者：有点蓝 -- 发布时间：2024/7/29 10:29:00 -- 生成目录树的时候没有包含【日】这个列呀：trv5.BuildTree(dt5, "年|月|领料单位|领料人") 所以筛选条件里就不应该包含【日】的条件，再说只有4层节点，不存在Case 4的吧
|
| -- 作者：15666282205 -- 发布时间：2024/7/29 10:48:00 -- 老师，这里就是故意没有包含（日），需要修改哪里呢？ |
| -- 作者：有点蓝 -- 发布时间：2024/7/29 10:55:00 -- 所以筛选条件里就不应该包含【日】的条件，再说只有4层节点，不存在Case 4的吧 |
| -- 作者：15666282205 -- 发布时间：2024/7/29 11:15:00 -- 我改好了，谢谢老师 |