Foxtable(狐表)用户栏目专家坐堂 → 求助代码


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

主题:求助代码

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


加好友 发短信
等级:婴狐 帖子:4 积分:144 威望:0 精华:0 注册:2017/7/4 13:40:00
求助代码  发帖心情 Post By:2021/7/30 10:04:00 [只看该作者]

 各位大神、老师:

我运用表事件进行编程时:

Dim dr2 As Date= Date.Today
Dim dr1 As Date= e.DataRow("失效日")
If e.DataCol.Name ="失效日" Then
    Dim y2 As Integer= dr2.Year
    Dim y1 As Integer= dr1.Year
    If y1>y2 Then
        e.DataRow("是否有效")=True
        If y1<y2 Then
            e.DataRow("是否有效")=False
        Else
            Dim m2 As Integer= dr2.Month
            Dim m1 As Integer= dr1.Month
            If m1>m2 Then
                e.DataRow("是否有效")=True
                If m1<m2 Then
                    e.DataRow("是否有效")=False
                Else
                    Dim d2 As Integer= dr2.Day
                    Dim d1 As Integer= dr1.Day
                    If d1>=d2 Then
                        e.DataRow("是否有效")=True
                        If d1<d2 Then
                            e.DataRow("是否有效")=False
                        End If
                    End If
                End If
            End If
        End If
    End If
End If

做一个客户列表的有效性,但是代码好像不管输入日期是不是当前日期前或者后,都是有效。
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/30 10:13:00 [只看该作者]

日期可以直接比较的,没有必要按年月日逐个比较,3句代码即可

If e.DataCol.Name ="失效日" Then
    e.DataRow("是否有效")=(e.DataRow("失效日") > Date.Today)
End If

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


加好友 发短信
等级:婴狐 帖子:4 积分:144 威望:0 精华:0 注册:2017/7/4 13:40:00
  发帖心情 Post By:2021/7/30 15:14:00 [只看该作者]

 已解决,感谢老师。

 回到顶部