Foxtable(狐表)用户栏目专家坐堂 → 在菜单项里利用临时表统计问题


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

主题:在菜单项里利用临时表统计问题

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


加好友 发短信
等级:小狐 帖子:349 积分:3329 威望:0 精华:0 注册:2016/3/8 18:13:00
在菜单项里利用临时表统计问题  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:349 积分:3329 威望:0 精华:0 注册:2016/3/8 18:13:00
  发帖心情 Post By:2018/2/27 15:53:00 [只看该作者]

自己查到原因了,是我粗心了。

 回到顶部