以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教表达式列能计算日期吗？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12153)
--  作者：狐友
--  发布时间：2011/8/24 15:35:00
--  请教表达式列能计算日期吗？

请教表达式列能计算日期吗？

 

比如销售日期等于[生产日期]+7天，该如何写呢，谢谢
--  作者：zhangqinyun
--  发布时间：2011/8/24 15:45:00
--  

在DataChanged 里加

Dim dr As DataRow = e.DataRow
Dim dc As DataCol = e.DataCol
Select Case dc.Name
    Case "生产日期"
        If dr.IsNull("生产日期") Then
            dr("销售日期") = ""
        Else
            dr("销售日期") = Date.Today.AddDays(7)

    End If

End Select
--  作者：zhangqinyun
--  发布时间：2011/8/24 15:46:00
--  

刚才写错了

 

在DataChanged 里加

Dim dr As DataRow = e.DataRow
Dim dc As DataCol = e.DataCol
Select Case dc.Name
    Case "生产日期"
        If dr.IsNull("生产日期") Then
            dr("销售日期") = ""
        Else
            dr("销售日期") = dr("生产日期").AddDays(7)

    End If

End Select