主题：对于不为空的单元格，希望在另外一列中设置日期

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