Foxtable(狐表)用户栏目专家坐堂 → 如何在菜单设置通用的日期筛选?


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

主题:如何在菜单设置通用的日期筛选?

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


加好友 发短信
等级:婴狐 帖子:30 积分:288 威望:0 精华:0 注册:2018/1/11 4:09:00
如何在菜单设置通用的日期筛选?  发帖心情 Post By:2018/5/9 15:48:00 [显示全部帖子]

求助大神,
我想在菜单里设置一个日期的筛选,这个可以对当前表的选中日期列进行筛选。该如何实现呢?谢谢~

 回到顶部
帅哥哟,离线,有人找我吗?
Adrain
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:288 威望:0 精华:0 注册:2018/1/11 4:09:00
  发帖心情 Post By:2018/5/9 17:00:00 [显示全部帖子]

但是,为什么报运行错误呢?说未找到列

下面是我的代码:
Dim c As Col = CurrentTable.cols(CurrentTable.ColSel)
currenttable.filter = "c.name is null"

 回到顶部
帅哥哟,离线,有人找我吗?
Adrain
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:288 威望:0 精华:0 注册:2018/1/11 4:09:00
  发帖心情 Post By:2018/5/9 17:05:00 [显示全部帖子]

如果筛选的是日期呢?也是&连接 筛选公式吗?


 回到顶部
帅哥哟,离线,有人找我吗?
Adrain
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:288 威望:0 精华:0 注册:2018/1/11 4:09:00
  发帖心情 Post By:2018/5/9 17:08:00 [显示全部帖子]

我按您给的改了,但是还是报错“null缺少运算符”

 回到顶部
帅哥哟,离线,有人找我吗?
Adrain
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:288 威望:0 精华:0 注册:2018/1/11 4:09:00
  发帖心情 Post By:2018/5/9 17:12:00 [显示全部帖子]

更正下报错,是“null运算符后缺少操作数”

 回到顶部
帅哥哟,离线,有人找我吗?
Adrain
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:288 威望:0 精华:0 注册:2018/1/11 4:09:00
  发帖心情 Post By:2018/5/9 17:14:00 [显示全部帖子]

dim c as col = currenttable.cols(currenttable.colsel)
currenttable.filter = c.name & "Is null"

 回到顶部
帅哥哟,离线,有人找我吗?
Adrain
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:288 威望:0 精华:0 注册:2018/1/11 4:09:00
  发帖心情 Post By:2018/5/9 17:20:00 [显示全部帖子]

我和您的代码没差别呀

 回到顶部
帅哥哟,离线,有人找我吗?
Adrain
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:30 积分:288 威望:0 精华:0 注册:2018/1/11 4:09:00
  发帖心情 Post By:2018/5/9 17:35:00 [显示全部帖子]

大神,我这段代码哪里有问题?为什么还是报错

Dim c As Col = CurrentTable.Cols(CurrentTable.Colsel)
Dim StartDate As Date
Dim EndDate As Date
With ribbontabs("Data Edition").Groups("Date Filter")
   StartDate = .Items("StartDate").value
   EndDate = .Items("EndDate").value
End With
CurrentTable.Filter = c.name & " >= #" & StartDate & "#" And c.name & " <= #" & EndDate & "# "

 回到顶部