如何编写法律的时效性 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何编写法律的时效性

共有3068人关注过本帖树形打印复制链接主题：如何编写法律的时效性

ehs0000

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：7 积分：121 威望：0 精华：0 注册：2023/10/9 13:20:00

如何编写法律的时效性 发帖心情

Post By：2023/10/13 16:07:00 [只看该作者]

法律有以下：发布日期，实施日期，废止日期，

如果废止日期为空，如果当前日期大于实施日期，法律的时效性为实施中；如果当前日期小于实施日期，法律的时效性为尚未生效，

如果废止日期不为空，如果当前日期大于废止日期，法律的时效性为废止，如果当前日期大于实施日期小于废止日期，法律的时效性为实施中。

这种情况，当前日期如何表示？表达式该如何写？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/10/13 16:19:00 [只看该作者]

无法使用表达式，只能使用代码处理。

ehs0000

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：7 积分：121 威望：0 精华：0 注册：2023/10/9 13:20:00

Post By：2023/10/16 8:54:00 [只看该作者]

商业版可以使用使用代码吗？如果可以的话，在哪里编辑

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/10/16 9:07:00 [只看该作者]

所有版本都可以写代码，如果还没有写过，先看看基础：http://www.foxtable.com/webhelp/topics/1592.htm

比如

表属性datacolchanged事件：http://www.foxtable.com/webhelp/topics/1445.htm

Select Case e.DataCol.Name
    Case "实施日期"，"废止日期"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("废止日期") Then

if data.now > dr("实施日期") then
dr("时效性") = "实施中"

else

dr("时效性") = "尚未生效"

end if

Else

if data.now > dr("废止日期") then
dr("时效性") = "废止"

else

dr("时效性") = "实施中"

end if

End If
End Select

下一主题 >> << 上一主题

主题：如何编写法律的时效性