Foxtable(狐表)用户栏目专家坐堂 → 如何让某表的日期列做比较,显示与另一列相同的日期


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

主题:如何让某表的日期列做比较,显示与另一列相同的日期

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


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

 取出年月,然后比较,具体问题请做一个简单例子发上来

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


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

Dim dt As DataTable = DataTables("当月二保")
dt.LoadFilter = "year(审验日期) = year(应维护日期) and month(审验日期) = month(应维护日期) "
dt.Load

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


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

写到afteropenproject事件

 

Dim dt As DataTable = DataTables("当月二保")
dt.LoadFilter = "year(审验日期) = year(应维护日期) and month(审验日期) = month(应维护日期) and 审验日期 <= 应维护日期"
dt.Load


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


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

 不可能报错 afteropenproject

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


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

 表事件,drawcell事件

 

If e.Col.Name = "应维护日期" Then
    Dim d1 As Date = e.Row("审验日期")
    Dim d2 As Date = e.Row("应维护日期")
    If not (d1 <= d2 AndAlso d1.Year = d2.Year And d1.Month = d2.Month) Then
        e.Text = Nothing
    End If
End If


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


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

 条件自己改

 

 

If e.Col.Name = "应维护日期" Then
    Dim d1 As Date = e.Row("审验日期")
    Dim d2 As Date = e.Row("应维护日期")
    If not (d1 <= d2 AndAlso d1.Year = d2.Year Andalso d1.Month = d2.Month) Then
        e.Text = Nothing
    End If
End If

[此贴子已经被作者于2014-11-30 22:48:02编辑过]

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


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

先比较大小,再比较年月啊,你的逻辑是什么

[此贴子已经被作者于2014-12-1 9:19:19编辑过]

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


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

比较年月大小

 

If e.Col.Name = "审验日期" Then
    Dim d1 As Date = e.Row("审验日期")
    Dim d2 As Date = e.Row("应维护日期")
    If Format(d1,"yyyyMM") >= Format(d2, "yyyyMM") Then
        e.Text = Nothing
    End If
End I


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


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

If e.Col.Name = "审验日期" Then
    Dim d1 As Date = e.Row("审验日期")
    Dim d2 As Date = e.Row("应维护日期")
    If Format(d1,"yyyyMM") >= Format(d2, "yyyyMM") Then
        e.Text = Nothing
    End If
End I


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


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

以下是引用xjc620在2014-12-1 9:39:00的发言:
这个也不行实现不了

 

不可能啊,你逻辑是神马啊。说话请说清楚啊


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