请教：关于日期的判断以及日期控件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教：关于日期的判断以及日期控件

共有3579人关注过本帖树形打印复制链接主题：请教：关于日期的判断以及日期控件

有点甜

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

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

Post By：2014/8/4 19:42:00 [显示全部帖子]

日期格式根本不能输入有错的日期啊

If e.DataCol.Name = "签订日期" AndAlso e.NewValue <> Nothing Then

e.DataRow("年度") =Format(e.DataRow("签订日期"), "yyyy")

End If

有点甜

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

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

Post By：2014/8/4 19:48:00 [显示全部帖子]

有点甜

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

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

Post By：2014/8/4 20:33:00 [显示全部帖子]

改一下

If e.Sender.Text <>"" Then

Dim d As Date '变量d用于存储转换结果

If Date.TryParse(e.Sender.Text, d) Then '如果转换成功

e.Sender.WriteValue()

Else

messagebox.Show("无效日期格式","提示",MessageBoxButtons.ok, MessageBoxIcon.warning) '给出错误提示

e.Cancel=True

End If

主题：请教：关于日期的判断以及日期控件