以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  在菜单项里利用临时表统计问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114999)

--  作者:weipeng6999
--  发布时间:2018/2/27 15:16:00
--  在菜单项里利用临时表统计问题
请教老师:我想在菜单项里利用临时表进行统计。
1、运行下段程序正常,能在主表中筛选出来
Dim dt1 As RibbonMenu.DatePicker = RibbonTabs("功能区1").Groups("统计").Items("日期输入框1")

Dim dt2 As RibbonMenu.DatePicker = RibbonTabs("功能区1").Groups("统计").Items("日期输入框2")

Dim Filter As String
Filter = "寄出时间 >= #" & dt1.value & "# And 寄出时间 <= #" & dt2.value & "#"
Tables("收件信息").Filter = Filter

2、但是我想利用临时表进行统计就报错
.NET Framework 版本:2.0.50727.8669
Foxtable 版本:2017.10.26.1
错误所在事件:菜单,统计,Click
详细错误信息:
未将对象引用设置到对象的实例


我的代码如下:
Dim dt1 As RibbonMenu.DatePicker = RibbonTabs("功能区1").Groups("统计").Items("日期输入框1")
Dim dt2 As RibbonMenu.DatePicker = RibbonTabs("功能区1").Groups("统计").Items("日期输入框2")
Dim b As New GroupTableBuilder("统计表",DataTables("收件信息"))
b.Filter = "寄出时间 >= #" & dt1.value & "# And 寄出时间 <= #" & dt2.value & "#"
b.Totals.AddDef("收件信息_姓名") 
b.Totals.AddDef("收件信息_单位名称") 
b.Totals.AddDef("寄出时间") 
b.Build \'生成统计表
MainTable = Tables("统计表") 

--  作者:weipeng6999
--  发布时间:2018/2/27 15:53:00
--  
自己查到原因了,是我粗心了。