以文本方式查看主题

-  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)
--  作者：yifan3429
--  发布时间：2012/5/22 14:51:00
--  求助：逻辑勾选 日期自动填入

请教高手帮忙 

附件中的  功能该如何实现

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb
--  作者：mr725
--  发布时间：2012/5/22 15:52:00
--  
If e.Col.Name = "已申购" Then
If e.Row("已申购") = True
    e.Row("申购日期") = Today()
End If
End If
--  作者：yifan3429
--  发布时间：2012/5/27 17:33:00
--  
以下是引用mr725在2012-5-22 15:52:00的发言：
If e.Col.Name = "已申购" Then
If e.Row("已申购") = True
    e.Row("申购日期") = Today()
End If
End If

谢谢mr725

但是 以上方法只能在表格中使用才可以的

在窗口中要怎样实现呢

还的继续请教高手
--  作者：布莱克朱
--  发布时间：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

 
--  作者：yifan3429
--  发布时间：2012/5/27 19:14:00
--  

谢谢 大家帮帮忙。搞定了。

诚心的感谢  虚心的学习