主题：时间类型格式转换错在什么地方?

表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