[原创]狐爸，时间格式化还没解决 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]狐爸，时间格式化还没解决

共有9049人关注过本帖树形打印复制链接主题：[原创]狐爸，时间格式化还没解决

jianjingmaoyi

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

等级：三尾狐帖子：760 积分：4714 威望：0 精华：0 注册：2011/12/17 18:37:00

Post By：2012/7/26 20:42:00 [显示全部帖子]

Dim str As Date = Date.Today

str =Format(Str,"yyyy-MM-dd")

e.Form.Controls("Label1").Text = Str

jianjingmaoyi

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

等级：三尾狐帖子：760 积分：4714 威望：0 精华：0 注册：2011/12/17 18:37:00

Post By：2012/7/26 20:46:00 [显示全部帖子]

If e.Value IsNot Nothing Then

e.Value = Date.Today

e.Value =Format(e.Value,"yyyy-MM-dd")

e.Form.Controls("Label1").Text = e.Value

End If

放在窗口的 DataFormat 中执行

jianjingmaoyi

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

等级：三尾狐帖子：760 积分：4714 威望：0 精华：0 注册：2011/12/17 18:37:00

Post By：2012/7/26 21:59:00 [显示全部帖子]

If e.Value IsNot Nothing Then

e.Value =Format(e.Value,"yyyy-MM-dd")

e.Form.Controls("Label1").Text = e.Value

End If

主题：[原创]狐爸，时间格式化还没解决