以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助日期转换  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95048)
--  作者：drcaoyf
--  发布时间：2017/1/9 10:12:00
--  求助日期转换
我的狐表有列住院日期，我想有图片添加后自己可以生成相应的文件夹名字，就是日期+姓名，我如何把日期转换成20170109这样的模式：比如是2017-01-09  转换成20170109



图片点击可在新窗口打开查看Dim dr As DataRow = e.DataRow
If dr.IsNull("住院日期") Or Dr.IsNull("姓名") Then
    MessageBox.Show("住院日期日期和姓名不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    e.SubFolder =dr("住院日期").year & "\\" & dr("姓名")
End If


谢谢各位老师，帮帮我。
--  作者：有点色
--  发布时间：2017/1/9 10:44:00
--  

 

e.SubFolder = Format(cDate(dr("住院日期")), "yyyyMMdd") & "\\" & dr("姓名")