以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]新版本目录树出错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141029) |
-- 作者:hotday1972 -- 发布时间:2019/9/19 22:09:00 -- [求助]新版本目录树出错 新的Foxtable版本更新后,目录树双击节点出错,代码如下: 在窗口的afterload Dim b As New SQLGroupTableBuilder("统计表1","NOK发现列表") b.C b.Groups.AddDef("审核日期",DateGroupEnum.Year,"年") b.Groups.AddDef("审核日期",DateGroupEnum.Month,"月") b.Groups.AddDef("审核区域") b.Totals.AddDef("跟踪号",AggregateEnum.Count,"记录数") \'根据不重复值列来统计记录数,也就是记录数 b.Build() \'生成目录树 Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree("统计表1", "年|月|审核区域") Dim dt As DataTable = DataTables("统计表1") trv.StopRedraw For Each nd As WinForm.TreeNode In trv.AllNodes Dim Year As Integer = nd.DataRow("年") Dim Month 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 & "(" & nd.DataRow("记录数") & "条)" End Select If nd.Text.Contains(Cstr(Date.Today.Year) & "年") Then nd.Expand() If nd.Text.Contains(Cstr(Date.Today.Month) & "月") Then nd.Expand() Next trv.Nodes.Insert("记录总数","记录总数: (" & dt.Compute("Sum(记录数)") & "条)",0) trv.ResumeRedraw 目录树的NodeMouseDoubleClick 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 ctg 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, 1) \'取得该月的第一天 d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天 Filter = "审核日期 >= #" & d1 & "# And 审核日期 <= #" & d2 & "# And 审核区域 = \'" & ctg & "\'" End Select End If _fdt.LoadFilter = Filter _fdt.Load() 出错信息 列“年”不属于表 统计表1。 我没看出问题在哪里?求助,谢谢!
|
-- 作者:有点酸 -- 发布时间:2019/9/19 22:29:00 -- 用例子说话,而不是单纯只贴代码,或者先自己调试一下,看看出错的是哪一行代码: http://www.foxtable.com/webhelp/topics/1485.htm |
-- 作者:hotday1972 -- 发布时间:2019/9/20 6:10:00 -- 更新前没有问题啊 |
-- 作者:hotday1972 -- 发布时间:2019/9/20 6:11:00 -- 例子就是抄帮助上的案例 |
-- 作者:有点酸 -- 发布时间:2019/9/20 7:37:00 -- 既然帮助的例子没有问题,而你照着抄之后出了问题,肯定没有根据自己的实际表结构调整代码,请仔细检查,不行就只能上传实例测试。 |