新的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。
我没看出问题在哪里?求助,谢谢!