以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何编写法律的时效性  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188722)
--  作者：ehs0000
--  发布时间：2023/10/13 16:07:00
--  如何编写法律的时效性
法律有以下：发布日期，实施日期，废止日期，
如果废止日期为空，如果当前日期大于实施日期，法律的时效性为实施中；如果当前日期小于实施日期，法律的时效性为尚未生效，
如果废止日期不为空，如果当前日期大于废止日期，法律的时效性为废止，如果当前日期大于实施日期小于废止日期，法律的时效性为实施中。
这种情况，当前日期如何表示？表达式该如何写？
--  作者：有点蓝
--  发布时间：2023/10/13 16:19:00
--  
无法使用表达式，只能使用代码处理。
--  作者：ehs0000
--  发布时间：2023/10/16 8:54:00
--  
商业版可以使用使用代码吗？如果可以的话，在哪里编辑
--  作者：有点蓝
--  发布时间：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