以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  日期变成指定格式  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60810)

--  作者:漂亮美眉vszh
--  发布时间:2014/12/1 16:33:00
--  日期变成指定格式

想要日期比如2008-01-01,变成2008.1.1这种格式,如何写代码?1前面不加0的,谢谢各位大侠~~

 


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2014/12/1 16:35:00
--  
你在赋值的时候,统一FOrmat一下

dr("出生年月")=format(date.today,"yyyy.MM.dd")

--  作者:漂亮美眉vszh
--  发布时间:2014/12/1 17:09:00
--  
以下是引用Bin在2014-12-1 16:35:00的发言:
你在赋值的时候,统一FOrmat一下

dr("出生年月")=format(date.today,"yyyy.MM.dd")

测试没成功,我这列是自动生成列,代码写在值DATAROWADDING内的。


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

--  作者:漂亮美眉vszh
--  发布时间:2014/12/1 17:10:00
--  
我出生日期列有表达式,会不会有影响?
--  作者:Bin
--  发布时间:2014/12/1 17:11:00
--  
你设置了之后,新增的列会改为这个格式.但是老的数据不会自己改变.

你可以遍历所有行 更改老数据



--  作者:Bin
--  发布时间:2014/12/1 17:11:00
--  
for each r as row in tables(X).rows
    r(X)=format(r(X),"yyyy.MM.dd")
next

--  作者:漂亮美眉vszh
--  发布时间:2014/12/1 17:25:00
--  

还是没成功~~不知道哪错了~~黄色是我新增的

 


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

--  作者:jialihaha
--  发布时间:2014/12/1 17:33:00
--  
我用命令窗口测试可以呀

图片点击可在新窗口打开查看此主题相关图片如下:r8t`@89(qfb6g@g$r~2}yf.jpg
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2014/12/1 17:33:00
--  
 不要用表达式啊。
--  作者:有点甜
--  发布时间:2014/12/1 17:38:00
--  

要么,你就在drawcell事件写代码

 

If e.Col.Name = "出生日期" Then  
    If e.Row.Isnull(e.Col.Name) = False Then
        e.Text = Format(e.Row(e.Col.Name), "yyyy.MM.dd")
    End If
End If