Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树中的代码错误，求助？


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

主题：目录树中的代码错误，求助？
帅哥哟，离线，有人找我吗？
zsslly
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		目录树中的代码错误，求助？  发帖心情 Post By：2018/12/19 11:59:00 [只看该作者]

TreeView1控件的NodeMouseClick中的代码如下：

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("责任人")
    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
            d1 = New Date(Year, Month,day, 1) '取得该月的第一天
            d2 = new Date(Year, Month,day, Date.DaysIn(Year,Month,day)) '取得该月的最后一天
            Filter = "事件日期 >= #" & d1 & "# And 事件日期 <= #" & d2 & "#"
        Case 3
            d1 = New Date(Year, Month,day, 1) '取得该月的第一天
            d2 = new Date(Year, Month,day, Date.DaysInMonth(Year,Month,day)) '取得该月的最后一天
            Filter = "事件日期 >= #" & d1 & "# And 事件日期 <= #" & d2 & "# And 责任人 = '" & Product & "'"
    End Select
End If

显示未知编译错误，不知道怎么了？想按年、月、日、责任人，来显示，求助?
 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2018/12/19 12:35:00 [只看该作者]

求助？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/19 12:39:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2018/12/19 13:15: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("责任人")
    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
            d1 = New Date(Year, Month,day, 1) '取得该月的第一天
            d2 = new Date(Year, Month,day, Date.DaysInDay(Year,Month,day)) '取得该月的最后一天
            Filter = "事件日期 = #" & d1 & "# And 事件日期 = #" & d2 & "#"
        Case 3
            d1 = New Date(Year, Month, 1) '取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天
            Filter = "事件日期 = #" & d1 & "# And 事件日期 = #" & d2 & "# And 责任人 = '" & Product & "'"
    End Select
End If
Tables("客户经理任务管理_Table1").Filter  = iif(filter>"", "(" & filter & ") And Not (责任人 = '李梦竹' and 责任人 = '俞洪峰' and 责任人 = '王旭亮' and 责任人 = '蒋伟杰' and 责任人 = '李凌云' and 责任人 = '王大骏' and 责任人 = '刘群')","Not (责任人 = '李梦竹' and 责任人 = '俞洪峰' and 责任人 = '王旭亮' and 责任人 = '蒋伟杰' and 责任人 = '李凌云' and 责任人 = '王大骏' and 责任人 = '刘群')")
 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2018/12/19 13:43:00 [只看该作者]

还是问题
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20181219134145.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/12/19 13:43:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2018/12/19 13:45:00 [只看该作者]

有大侠在吗？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/19 14:31:00 [只看该作者]

照抄3楼的代码啊。能否认认真真看一看啊？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/19 14:31:00 [只看该作者]

 

不会做，请上传具体的，可以测试的实例。

 
 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2018/12/19 14:36:00 [只看该作者]

感谢老师，我仔细的看了一下，学会了！跪谢！

 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2018/12/19 15:19:00 [只看该作者]

在麻烦问下老师？

afterLoad事件，改成

 

'首先生成统计表
Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("订单"))
b.Groups.AddDef("日期",DateGroupEnum.Year,"年")
b.Groups.AddDef("日期",DateGroupEnum.Month,"月")
b.Groups.AddDef("日期",DateGroupEnum.day,"日")
b.Groups.AddDef("产品")
b.Totals.AddDef("客户",AggregateEnum.Count,"订单数") '根据客户列来统计记录数,也就是订单数
dt = b.Build(True) '参数设置为True,生成一个临时表,不在主界面显示
'然后根据统计表生成目录树
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|日|产品")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim Year As Integer = nd.DataRow("年")
    Dim Month As Integer = nd.DataRow("月")
    Dim day As Integer = nd.DataRow("日")
    Dim Product As String = nd.DataRow("产品")
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "年(" & dt.Compute("Sum(订单数)","年 = " & Year) & "条)"
        Case 1
            nd.Text = nd.text & "月(" & dt.Compute("Sum(订单数)","年 = " & Year & " And 月 = " & Month) & "条)"
        Case 2
            nd.Text = nd.text & "月(" & dt.Compute("Sum(订单数)","年 = " & Year & " And 月 = " & Month & " and 日 = " & day) & "条)"
        Case 3
            nd.Text = nd.text & "(" & nd.DataRow("订单数") & "条)"
    End Select
Next
trv.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("Sum(订单数)") & "条)",0)
trv.ResumeRedraw


按这个代码？生成的结果是不是临时表，那我如何通过代码定位焦点呢?
正常情况下我用以下代码就可以了，但这里却不行，代码如下:求指点？

Dim dr As DataRow
dr = Tables("客户经理任务管理_table1").current.DataRow
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("客户经理任务管理_table1").FindRow(dr)
    If wz >= 0 Then
        Tables("客户跟踪仿甘特图").Position = wz
    End If
End If

跪求指点？
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07617 秒, 4 次数据查询