以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助：逻辑勾选 日期自动填入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19825)
--  作者：mr725
--  发布时间：2012/5/22 15:52:00
--  
If e.Col.Name = "已申购" Then
If e.Row("已申购") = True
    e.Row("申购日期") = Today()
End If
End If
--  作者：布莱克朱
--  发布时间：2012/5/27 18:35:00
--  
Dim r As Row = Tables("xxx").Current
If r("逻辑列")=True Then
    r("日期列")= Date.Today()
End If
--  作者：pyh6918
--  发布时间：2012/5/27 18:36:00
--  

放到DataColChanged事件中，在窗口和表中一样能用：

 

If e.DataCol.Name = "已申购" Then
    If e.DataRow("已申购") = True
        e.DataRow("申购日期") = Today()
    Else
        e.DataRow("申购日期") = Nothing
    End If
End If