- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 未将对象引用设置到对象实列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95554)
-- 发布时间：2017/1/23 13:58:00
-- 未将对象引用设置到对象实列
\'首先生成统计表 Dim dt As DataTable Dim b As New SQLGroupTableBuilder("统计表","病历资料") b.Groups.AddDef("住院日期",DateGroupEnum.Year,"年") b.Groups.AddDef("关键字") b.Totals.AddDef("_Identify",AggregateEnum.Count,"数量") \'根据主键列来统计记录数,也就是订单数 dt = b.Build(False) \'参数设置为False,生成一个临时表,不在主界面显示 \'然后根据统计表生成目录树 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 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 & "(" & nd.DataRow("数量") & "个)" End Select Next trv.Nodes.Insert("加载所有行","加载所有行(" & dt.Compute("Sum(数量)") & "个)",0) trv.ResumeRedraw
此主题相关图片如下：qq截图20170123135320.jpg
此主题相关图片如下：qq截图20170123135651.jpg
-- 发布时间：2017/1/23 13:59:00
--
在狐表内，执行没有问题，退出去后，再进入的时候先出现错误。
-- 发布时间：2017/1/23 14:00:00
--
那个老师给指点下哪里出问题了
这是个加载树的执行案列，刚进去，不自己加载加载树，执行窗口后可以加载
-- 发布时间：2017/1/23 15:23:00
--
不显示表用true
b.Build(True)
-- 发布时间：2017/1/24 2:12:00
--
以下是引用drcaoyf在2017/1/23 13:59:00的发言：
在狐表内，执行没有问题，退出去后，再进入的时候先出现错误。
在狐表内，执行没有问题，退出去后，再进入的时候先出现错误。
你这个窗口设置成了 自动打开？尽量不要这样设置，你试试，在afteropenproject写代码打开吧。