Foxtable(狐表)用户栏目专家坐堂 → 在筛选树TreeView显示统计数据 提示未将对象引用设置到对象的实例。


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

主题:在筛选树TreeView显示统计数据 提示未将对象引用设置到对象的实例。

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
在筛选树TreeView显示统计数据 提示未将对象引用设置到对象的实例。  发帖心情 Post By:2022/5/19 11:17:00 [只看该作者]

在筛选树TreeView显示统计数据 提示未将对象引用设置到对象的实例。

 

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.1.30.2
错误所在事件:窗口,知识库,AfterLoad
详细错误信息:
未将对象引用设置到对象的实例。

 

 

代码如下:(能够实现目录树的生成,但是不能实现目录树的统计)

Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("知识库主表"))
b.Groups.AddDef("类别")
b.Groups.AddDef("级别")
b.Groups.AddDef("文件名")
b.Totals.AddDef("文件名",AggregateEnum.Count,"文件数") '根据客户列来统计记录数,也就是文件数
dt = b.Build(True) '参数设置为True,生成一个临时表,不在主界面显示
'然后根据统计表生成目录树
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("知识库主表", "类别|级别|文件名")
trv.Nodes.Insert("显示所有行",0)
trv.StopRedraw

For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim lb As String = nd.DataRow("类别")
    Dim jb As String = nd.DataRow("级别")
    Dim wj As String = nd.DataRow("文件品")
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "类别(" & dt.Compute("Sum(文件数)","类别 = " & lb) & "条)"
        Case 1
            nd.Text = nd.text & "级别(" & dt.Compute("Sum(文件数)","类别 = " & lb & " And 级别 = " & jb) & "条)"
        Case 2
            nd.Text = nd.text & "(" & nd.DataRow("文件数") & "条)"
    End Select
Next
trv.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("Sum(类别数)") & "条)",0)
trv.ResumeRedraw


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/19 11:26:00 [只看该作者]

去掉trv.Nodes.Insert("显示所有行",0)

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)去掉trv.Nodes.Insert("显示所有行",...  发帖心情 Post By:2022/5/19 11:38:00 [只看该作者]

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.1.30.2
错误所在事件:窗口,知识库,AfterLoad
详细错误信息:
未找到列 [各类课件]。

 

表中数据结构如图


图片点击可在新窗口打开查看此主题相关图片如下:0.png
图片点击可在新窗口打开查看

展开后图

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

当前代码如下:

Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("知识库主表"))
b.Groups.AddDef("类别")
b.Groups.AddDef("级别")
b.Groups.AddDef("文件名")
b.Totals.AddDef("文件名",AggregateEnum.Count,"文件数") '根据客户列来统计记录数,也就是类别数
dt = b.Build(True) '参数设置为True,生成一个临时表,不在主界面显示

'然后根据统计表生成目录树
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("知识库主表", "类别|级别|文件名")
trv.StopRedraw

For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim lb As String = nd.DataRow("类别")
    Dim jb As String = nd.DataRow("级别")
    Dim wj As String = nd.DataRow("文件名")
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "类别(" & dt.Compute("Sum(类别)","类别 = " & lb) & "条)"
        Case 1
            nd.Text = nd.text & "级别(" & dt.Compute("Sum(级别)","类别 = " & lb & " And 级别 = " & jb) & "条)"
        Case 2
            nd.Text = nd.text & "(" & nd.DataRow("文件数") & "条)"
    End Select
Next
trv.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("Sum(文件数)") & "条)",0)
trv.ResumeRedraw

 

 


[此贴子已经被作者于2022/5/19 11:38:38编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/19 11:56:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)http://www.foxtable.com/webhelp/to...  发帖心情 Post By:2022/5/19 12:40:00 [只看该作者]

参照的是帮助中的:在筛选树显示统计数据

 

还是没有明白这个地方要怎么组合才能有效?

麻烦老师指导下

Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("知识库主表"))
b.Groups.AddDef("类别")
b.Groups.AddDef("级别")
b.Groups.AddDef("文件名")
b.Totals.AddDef("文件名",AggregateEnum.Count,"文件数") '根据客户列来统计记录数,也就是类别数


dt = b.Build(True) '参数设置为True,生成一个临时表,不在主界面显示

'然后根据统计表生成目录树
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("知识库主表", "类别|级别|文件名")
trv.StopRedraw

For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim lb As String = nd.DataRow("类别")
    Dim jb As String = nd.DataRow("级别")
    Dim wj As String = nd.DataRow("文件名")
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "类别(" & dt.Compute("Sum(类别)","类别 = " & lb) & "条)"
        Case 1
            nd.Text = nd.text & "级别(" & dt.Compute("Sum(级别)","类别 = " & lb & " And 级别 = " & jb) & "条)"
        Case 2
            nd.Text = nd.text & "(" & nd.DataRow("文件数") & "条)"
    End Select
Next
trv.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("Sum(文件数)") & "条)",0)
trv.ResumeRedraw


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/19 13:41:00 [只看该作者]

认真理解一下帮助,一遍看不懂,看10遍

 回到顶部