专家坐堂-目录树中的代码错误，求助？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树中的代码错误，求助？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128976)

--  作者：zsslly
--  发布时间：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
--  发布时间：2018/12/19 12:35:00
--
求助？

--  作者：有点甜
--  发布时间：2018/12/19 12:39:00
--

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=128869&skin=0

--  作者：zsslly
--  发布时间：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
--  发布时间：2018/12/19 13:43:00
--
还是问题
此主题相关图片如下：qq截图20181219134145.jpg

[此贴子已经被作者于2018/12/19 13:43:07编辑过]

--  作者：zsslly
--  发布时间：2018/12/19 13:45:00
--
有大侠在吗？

--  作者：有点甜
--  发布时间：2018/12/19 14:31:00
--
照抄3楼的代码啊。能否认认真真看一看啊？

--  作者：有点甜
--  发布时间：2018/12/19 14:31:00
--

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

--  作者：zsslly
--  发布时间：2018/12/19 14:36:00
--
感谢老师，我仔细的看了一下，学会了！跪谢！

--  作者：zsslly
--  发布时间：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

跪求指点？