以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  对于不为空的单元格，希望在另外一列中设置日期  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14947)
--  作者：HP
--  发布时间：2011/12/7 17:36:00
--  对于不为空的单元格，希望在另外一列中设置日期

Select Case e.DataCol.Name

    Case "Y"    
    With CurrentTable
      Dim r As Date = Date.Today
      If e.DataRow("Y") IsNot Nothing Then
         .Current("Z")=r.AddDays(7)
      End If
    End With
End Select

请指点以上代码，感谢！！
--  作者：狐狸爸爸
--  发布时间：2011/12/7 17:39:00
--  

Select Case e.DataCol.Name
    Case "Y"
    With CurrentTable
        Dim r As Date = Date.Today
        If e.DataRow.IsNull("Y")  = False Then
            .Current("Z")=r.AddDays(7)
        End If
    End With
End Select

参考：

http://www.foxtable.com/help/topics/1470.htm

 
--  作者：czy
--  发布时间：2011/12/7 17:40:00
--  
If e.DataRow.IsNull("Y") = false then
--  作者：HP
--  发布时间：2011/12/8 9:19:00
--  
因为Y列为表达式列，上面的代码无法实现，我试了一下，数据列就可以，请教对表达式列要实现以上代码有没有别的办法，感谢！！！
--  作者：liguichuan
--  发布时间：2011/12/8 10:45:00
--  
为什么不用数据列呢？
--  作者：liguichuan
--  发布时间：2011/12/8 10:47:00
--  

表达式列的特殊性

我们知道，列的值发生变化，会相继触发DataColChanging和DataColChanged事件。
但是有一个例外： 表达式列的值发生变化时，并不会触发这两个事件。

假定C列是一个表达式列，根据A列和B列的值计算得出，而D列的值则根据C列的值用代码计算得出。
通常我们会这样编写DataColChanged事件的代码：

Select Case e.DataCol.Name
    Case "C"
          \'计算D列的代码
End Select

但是上述代码是无效的，因为作为表达式列，C列发生变化的时候，并不会触发DataColChanged事件。

我们可以换个思路，既然C列是有A列和B列计算得出，那么C列发生变化，肯定是因为A列或B列发生变化引起的。
所以正确的代码是：

Select Case e.DataCol.Name
    Case "A" ,"B"
          \'计算D列的代码
End Select
--  作者：HP
--  发布时间：2011/12/8 11:21:00
--  
有道理，了解，谢谢！！