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

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

请指点以上代码，感谢！！

因为Y列为表达式列，上面的代码无法实现，我试了一下，数据列就可以，请教对表达式列要实现以上代码有没有别的办法，感谢！！！

有道理，了解，谢谢！！