- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]时间显示问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31083)
-- 发布时间：2013/4/9 22:34:00
-- [求助]时间显示问题
退休时间根据出生日期及性别自动计算得出，从表里显示无误，如：2026-10-16
到窗口却显示为：2026-10-16 0:00:00,不知为何？
此主题相关图片如下：剪辑_02022.jpg
-- 发布时间：2013/4/9 22:37:00
--
Forms("窗口1").Controls("TextBox1").FormatString = "yyyy-MM-dd"
-- 发布时间：2013/4/10 10:42:00
--
这样还是有问题，一旦点击控件，又会显示为2026-10-16 0:00:00。
-- 发布时间：2013/4/10 10:45:00
--
你计算的代码有问题. 发出来看看.是不是格式本来就这样.
-- 发布时间：2013/4/10 10:51:00
--
退休时间代码：
If e.DataCol.Name = "出生日期" Then
If e.DataRow.IsNull("出生日期") Or e.DataRow.IsNull("性别") Or e.DataRow.IsNull("身份标识_身份3") Then
e.DataRow("退休时间") = Nothing
Else If e.DataRow("性别") ="女" AndAlso e.DataRow("身份标识_身份3") ="干部" Then
e.DataRow("退休时间") = e.DataRow("出生日期").AddYears(55)
Else If e.DataRow("性别") ="女" AndAlso e.DataRow("身份标识_身份3") ="工人" Then
e.DataRow("退休时间") = e.DataRow("出生日期").AddYears(50)
Else If e.DataRow("性别") ="男"
e.DataRow("退休时间") = e.DataRow("出生日期").AddYears(60)
End If
End If
-- 发布时间：2013/4/10 10:59:00
--
你的出生日期列.是否也是带时分秒的格式呢? 如果是改为年月日格式即可.
-- 发布时间：2013/4/10 11:10:00
--
其他日期列全部正常，出生日期是从身份证号生成的。检查了列属性，都是默认的，未作修改。
-- 发布时间：2013/4/10 11:13:00
--
以下是引用muhua在2013-4-10 10:52:00的发言：
为何不用 DateTimePicker 控件？
既然自动生成，就没必要使用。
为何不用 DateTimePicker 控件？
-- 发布时间：2013/4/10 11:28:00
--
刚刚做了一下测验，发现只要是日期列，使用文本控件时都会出现显示为类似：2026-10-16 0:00:00，而使用 DateTimePicker控件正常，迷惑....莫非发现了传说中的BUG?
[此贴子已经被作者于2013-4-10 11:36:38编辑过]
-- 发布时间：2013/4/10 11:28:00
--
发个例子上来看看吧.正常情况测试了是没问题的..