以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 项目启动是报未将对象引用设置到对象的实例 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157924) |
-- 作者:foxyuan -- 发布时间:2020/11/2 20:41:00 -- 项目启动是报未将对象引用设置到对象的实例 下面的代码,在项目启动时会报错,说未将对象引用设置到对象的实例,见截图。进入项目后,应用这个窗口正常不报错,只有项目启动时会报错,也没有找到项目启动时要打开这个窗口的设置。 报错出在2跟3之间。dt = b.Build(True) 与 dt = b.Build(False) 都试过一样的。 Dim dt As DataTable Dim b As New GroupTableBuilder("信息统计2",DataTables("项目信息")) b.Groups.AddDef("项目状态") b.Groups.AddDef("登记时间",DateGroupEnum.Year,"年") b.Groups.AddDef("登记时间",DateGroupEnum.Month,"月") MessageBox.Show(1) b.Totals.AddDef("项目编号",AggregateEnum.Count,"项目数") \'根据客户列来统计记录数,也就是订单数 MessageBox.Show(2) dt = b.Build(True) MessageBox.Show(3) If DataTables("信息统计2").DataCols.Contains("排序") Then Else DataTables("信息统计2").DataCols.Add("排序",Gettype(Short)) End If For Each dr As DataRow In DataTables("信息统计2").Select("") Dim r As DataRow r = DataTables("列表项目").Find("项目跟进状态 = \'" & dr("项目状态") & "\'" ) If r IsNot Nothing \'如果找到, 则设置各列内容 dr("排序") = r("排序方式") End If Next \'然后根据统计表生成目录树 Dim t As DataTable = DataTables("信息统计2") Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree(t, "项目状态|年|月", "", "排序,年,月") 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 & "(" & t.Compute("Sum(项目数)","项目状态 = \'" & Product & "\'") & ")" Case 1 nd.Text = nd.text & "年(" & t.Compute("Sum(项目数)","项目状态 = \'" & Product & "\' And 年 = \'" & Year & "\'") & ")" Case 2 nd.Text = nd.text & "月(" & t.Compute("Sum(项目数)","项目状态 = \'" & Product & "\' And 年 = \'" & Year & "\' And 月 = \'" & Month & "\'") & ")" End Select Next trv.Nodes.Insert("显示所有行","显示所有行(" & t.Compute("Sum(项目数)") & "条)",0) trv.nodes(0).Forecolor = Color.red trv.ResumeRedraw |
-- 作者:foxyuan -- 发布时间:2020/11/2 20:48:00 -- 报错窗口关掉后能进入系统,进入【项目信息】窗口筛选树不显示内容,打开窗口管理将“项目信息窗口”应用一下后就全正常了。但下次打开项目还是报错。 |
-- 作者:有点蓝 -- 发布时间:2020/11/2 21:13:00 -- 【项目信息】窗口应该设置成了自动打开,改为false |
-- 作者:foxyuan -- 发布时间:2020/11/2 21:18:00 -- http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=67883&skin=0 刚刚查到这个,跟蓝老师说的一样,问题解决。
|