主题：求助：逻辑勾选 日期自动填入

请教高手帮忙 

附件中的  功能该如何实现

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

If e.Col.Name = "已申购" Then
If e.Row("已申购") = True
    e.Row("申购日期") = Today()
End If
End If

谢谢mr725

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

在窗口中要怎样实现呢

还的继续请教高手

Dim r As Row = Tables("xxx").Current
If r("逻辑列")=True Then
    r("日期列")= Date.Today()
End If

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

 

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

 

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

诚心的感谢  虚心的学习