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


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

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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/9 16:12:00 [显示全部帖子]

以下是引用Adrain在2018/5/9 15:48:00的发言:
求助大神,
我想在菜单里设置一个日期的筛选,这个可以对当前表的选中日期列进行筛选。该如何实现呢?谢谢~

 

参考 http://www.foxtable.com/webhelp/scr/1137.htm

 

当前表,选中列,参考

 

Dim c As Col = CurrentTable.cols(CurrentTable.ColSel)
msgbox(c.name)


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/9 17:01:00 [显示全部帖子]

Dim c As Col = CurrentTable.cols(CurrentTable.ColSel)
CurrentTable.filter = c.name & " is null"


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/9 17:06:00 [显示全部帖子]

Dim c As Col = CurrentTable.cols(CurrentTable.ColSel)
CurrentTable.filter = c.name & " = #" & 某个日期值 & "#"


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/9 17:11:00 [显示全部帖子]

以下是引用Adrain在2018/5/9 17:08:00的发言:
我按您给的改了,但是还是报错“null缺少运算符”

 

贴出你写的代码


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/9 17:13:00 [显示全部帖子]

以下是引用Adrain在2018/5/9 17:12:00的发言:
更正下报错,是“null运算符后缺少操作数”

 

贴出你写的代码

 

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/9 17:15:00 [显示全部帖子]

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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/9 17:21:00 [显示全部帖子]

以下是引用Adrain在2018/5/9 17:20:00的发言:
我和您的代码没差别呀

 

复制,粘贴,测试

[此贴子已经被作者于2018/5/9 17:20:57编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/9 17:53:00 [显示全部帖子]

CurrentTable.Filter = c.name & " >= #" & StartDate & "# And " & c.name & " <= #" & EndDate & "# "

 回到顶部