以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96681)
--  作者：adbriam
--  发布时间：2017/2/26 10:43:00
--  [求助]
两个日期列，要求一列为另一列日期后20天，如何写表达式列
--  作者：YaoFlySky
--  发布时间：2017/2/26 11:28:00
--  


语法：

AddDays(Value)


例如：

Dim d As Date = #2/28/2008#
Dim d1 As Date = d.AddDays(40) \'加上40天
Dim d2 As Date = d.AddDays(-40) \'减去40天



[此贴子已经被作者于2017/2/26 11:30:20编辑过]
--  作者：wyz20130512
--  发布时间：2017/2/26 11:45:00
--  
DataColChanged代码：

Select Case e.DataCol.Name
    Case "日期1"
        If e.DataRow.IsNull("日期1") = False Then
            e.DataRow("日期2") = e.DataRow("日期1").AddDays(20)
        End If
End Select
--  作者：有点色
--  发布时间：2017/2/26 15:45:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1452.htm

 
--  作者：adbriam
--  发布时间：2017/2/26 17:21:00
--  
谢谢，问题是能不能用表达式列实现，写这个事件代码太麻烦了
--  作者：wyz20130512
--  发布时间：2017/2/26 19:00:00
--  
不能
--  作者：adbriam
--  发布时间：2017/2/27 12:00:00
--  
这样的话已经输入的数据不会进行计算啊
--  作者：有点色
--  发布时间：2017/2/27 12:40:00
--  
以下是引用adbriam在2017/2/27 12:00:00的发言：
这样的话已经输入的数据不会进行计算啊

 

重置列 http://www.foxtable.com/webhelp/scr/1469.htm