以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于日期  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48849)
--  作者：1234567
--  发布时间：2014/4/7 15:00:00
--  关于日期

表中有三列，开始日期，间隔时间，结束日期

Select Case e.DataCol.Name
    Case "开始日期","间隔时间"
        e.DataRow("结束日期") = e.DataRow("开始日期").Addhours(e.DataRow("间隔时间"))
End Select

 

我希望只有当我在开始日期列和间隔时间列都输入数据后，结束日期才会自动输入，该怎么改进

 

 
--  作者：y2287958
--  发布时间：2014/4/7 15:20:00
--  
加个条件呗
Select Case e.DataCol.Name
    Case "开始日期","间隔时间"
        if e.DataRow.isnull("开始日期") = false andalso e.DataRow.isnull("间隔时间") = false 
            e.DataRow("结束日期") = e.DataRow("开始日期").Addhours(e.DataRow("间隔时间"))
       end if
End Select
--  作者：有点甜
--  发布时间：2014/4/7 15:21:00
--  

参考

 

Select Case e.DataCol.Name
    Case "开始日期","间隔时间"

        If e.DataRow.Isnull("开始日期") = False Andalso e.DataRow.Isnull("间隔时间") = False Then
            e.DataRow("结束日期") = e.DataRow("开始日期").Addhours(e.DataRow("间隔时间"))

        End If
End Select
--  作者：1234567
--  发布时间：2014/4/7 16:24:00
--  

下列表达是表示今天以前

开始日期<= #" & Date.Today & "#"

如果日期列是2014-4-7 01:00:00,就不包含在今天以前范围内，

如何把2014-4-7 23:59:59以前都包含在今天以前？
--  作者：有点甜
--  发布时间：2014/4/7 16:40:00
--  
以下是引用1234567在2014-4-7 16:24:00的发言：

下列表达是表示今天以前

开始日期<= #" & Date.Today & "#"

如果日期列是2014-4-7 01:00:00,就不包含在今天以前范围内，

如何把2014-4-7 23:59:59以前都包含在今天以前？

 

这样写

 

开始时间 < #" & Date.Today.AddDays(1) & "#"