Foxtable(狐表)用户栏目专家坐堂 → 日期筛选


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

主题:日期筛选

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


加好友 发短信
等级:婴狐 帖子:12 积分:176 威望:0 精华:0 注册:2016/10/15 22:29:00
日期筛选  发帖心情 Post By:2016/11/7 20:40:00 [只看该作者]

我想在购水明细表中的日期列设个连续三个月没购水就显示红色,在三个月内购了水就还原的代码改怎么写?

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


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/7 20:47:00 [只看该作者]


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


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/7 21:03:00 [只看该作者]

类似

Select Case e.Col.Name
    Case "纪念日"
        If e.Table.DataTable.Find("编号='" e.Row("编号") "' and 日期 > '" & Date.Today.AddMonths(-3) & "'") Is Nothing Then
            e.Style = "样式1"
        End If
End Select

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


加好友 发短信
等级:婴狐 帖子:12 积分:176 威望:0 精华:0 注册:2016/10/15 22:29:00
  发帖心情 Post By:2016/11/9 12:07:00 [只看该作者]

请问是不是在表事件的drowcall 里运行,怎么输入代码不行?

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/11/9 13:00:00 [只看该作者]

以下是引用hsg1200在2016/11/9 12:07:00的发言:
请问是不是在表事件的drowcall 里运行,怎么输入代码不行?

 

报什么错?

 

http://www.foxtable.com/webhelp/scr/0656.htm

 


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


加好友 发短信
等级:婴狐 帖子:12 积分:176 威望:0 精华:0 注册:2016/10/15 22:29:00
  发帖心情 Post By:2016/11/9 20:36:00 [只看该作者]

图片点击可在新窗口打开查看

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


加好友 发短信
等级:婴狐 帖子:12 积分:176 威望:0 精华:0 注册:2016/10/15 22:29:00
  发帖心情 Post By:2016/11/9 20:43:00 [只看该作者]

类型“datarow”的值无法转换为“boolean”

错误代码:If e.Table.DataTable.Find("编号='" e.Row("编号") "' and 日期 > '" & Date.Today.AddMonths(-3) & "'") Is Nothing Then


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


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/9 20:49:00 [只看该作者]

If e.Table.DataTable.Find("编号='" & e.Row("编号") & "' and 日期 > '" & Date.Today.AddMonths(-3) & "'") Is Nothing Then

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


加好友 发短信
等级:六尾狐 帖子:1249 积分:9492 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2016/11/9 20:50:00 [只看该作者]

If e.Table.DataTable.Find(" 编号 = '" & e.Row("编号") & "' And 日期 > '" & Date.Today.AddMonths(-3) & "'") Is Nothing Then

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


加好友 发短信
等级:婴狐 帖子:12 积分:176 威望:0 精华:0 注册:2016/10/15 22:29:00
  发帖心情 Post By:2016/11/9 21:21:00 [只看该作者]

谢谢!已解决,问题也找到了差了&

 回到顶部
总数 11 1 2 下一页