关于设置日期列的默认日期 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于设置日期列的默认日期

共有2198人关注过本帖树形打印复制链接主题：关于设置日期列的默认日期

裴保民

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00

关于设置日期列的默认日期 发帖心情

Post By：2018/1/14 16:55:00 [只看该作者]

怎样设置日期列的默认日期，在该列为空或新增列时将该列的日期起设置为指定日期：如1911年1月1日。该在哪个事件写呢？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/14 17:47:00 [只看该作者]

方法一：DataRowAdded事件

e.DataRow("日期") = date.Today

方法二：设置列属性 http://www.foxtable.com/webhelp/scr/1416.htm

裴保民

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2018/1/14 20:36:00 [只看该作者]

我在DataColChanged事件中编写如下代码：

Dim zcrq As Date= Cdate("1911-1-1")

If e.DataCol.name = "注册日期" Then

If e.OldValue IsNot Nothing Then

e.DataRow("注册日期") = zcrq

End If

在 DataRowAdded事件中编写如下代码：运行后出现不能修改日期

Dim zcrq As Date= CDate("1911-1-1")

e.DataRow("注册日期") = zcrq

只要“注册日期”中的的数据发送改变后怎么立即就改为“1911-01-01”了，我想实现当打开此表或新增数据时，将“注册日期”字段为空的行设置成“1911-1-1”时中的的数据但可以修改日期，但现在修改不了日期，一修改就改为1911-1-1了。不知道怎么设置？请甜老师帮忙

[此贴子已经被作者于2018/1/14 20:38:08编辑过]

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/14 20:39:00 [只看该作者]

DataRowAdded事件

e.DataRow("注册日期") = Cdate("1911-1-1")

DataColChanged事件的代码，不需要写。或者写成

If e.DataCol.name = "注册日期" Then

If e.newValue = Nothing Then

Dim zcrq As Date= Cdate("1911-1-1")

e.DataRow("注册日期") = zcrq

End If

[此贴子已经被作者于2018/1/14 20:39:32编辑过]

下一主题 >> << 上一主题

主题：关于设置日期列的默认日期