以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  时间类型格式转换错在什么地方?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120062)
--  作者：fytea
--  发布时间：2018/6/6 13:31:00
--  时间类型格式转换错在什么地方?

表A时间列为日期时间类型,怎么把yyyy-mm-dd格式转换成yyyymmdd

下面代码错在什么地方?

If e.DataCol.Name = "时间" Then
    If e.DataRow.IsNull("时间") Then
        e.DataRow("时间") =""
    Else
        Dim r As Row =Tables("表A").current
        Dim a As Integer =r("时间")
        e.DataRow("时间") =Format(a,"YYYYMMDD")
    End If
End If
--  作者：有点甜
--  发布时间：2018/6/6 14:35:00
--  

1、日期时间列，是不能更改格式的，除非改成字符列；

 

2、你可以在drawcell事件写代码

 

If e.Col.Name = "时间" Then
    If e.Row.IsNull("时间") Then
        e.Text = ""
    Else
        e.Text =Format(cdate(e.text),"yyyyMMdd")
    End If
End If
--  作者：fytea
--  发布时间：2018/6/6 15:31:00
--  
没有变化,老甜
--  作者：有点甜
--  发布时间：2018/6/6 15:43:00
--  
在drawcell事件写代码，列名改成对应列名，在表格里面显示的值，肯定会变

 

If e.Col.Name = "时间" Then
    If e.Row.IsNull("时间") Then
        e.Text = ""
    Else
        e.Text =Format(cdate(e.text),"yyyyMMdd")
    End If
End If

 

http://www.foxtable.com/webhelp/scr/2262.htm