以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  打开项目加载treeview出现“未将对象引用设置到对象的实例”  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176959)

--  作者：comfortfoot --  发布时间：2022/5/5 5:03:00 --  打开项目加载treeview出现“未将对象引用设置到对象的实例” 把treeview的代码写进窗口的afterload里 应用窗口不会报错 但是重新打开项目，就出现了 "未将对象引用设置到对象的实例”  需要另外设置一个加载的按钮才行。 Dim dt As DataTable Dim b As New GroupTableBuilder("统计表1",DataTables("RMT收据")) b.Groups.AddDef("da",DateGroupEnum.Year,"年") b.Groups.AddDef("da",DateGroupEnum.Month,"月") b.Groups.AddDef("da",DateGroupEnum.Day,"日") b.Totals.AddDef("hr",AggregateEnum.Sum,"hour") \'根据客户列来统计记录数,也就是订单数 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("日")     Select Case nd.Level         Case 0             nd.Text = nd.text & "年(" & dt.Compute("Sum(hour)","年 = " & Year) & "hr)"         Case 1             nd.Text = nd.text & "月(" & dt.Compute("Sum(hour)","年 = " & Year & " And 月 = " & Month) & "hr)"         Case 2             nd.Text = nd.text & "日(" & dt.Compute("Sum(hour)","年 = " & Year & " And 月 = " & Month  & " And 日 = " & Day) & "hr)"     End Select Next trv.Nodes.Insert("显示所有行","显示所有行",0) trv.ResumeRedraw

--  作者：有点蓝 --  发布时间：2022/5/5 8:45:00 --   这个窗口不要设置为自动打开，到AfterOpenProject事件写代码打开

--  作者：comfortfoot --  发布时间：2022/5/7 8:48:00 --   谢谢大神，搞定了