主题：格式化日期和时间

参考一下：不一定最佳

 先把 2015/4/21 转换为 4/21/2015

再

Dim s As String = Format(#04/21/2015#,"MM")
'Dim nms() As String = {"1","2","3","4","5","6","7","8","9","10","11","12"} '定义12个月
Dim ics() As String = {"M","F","W","APR","F","S","SE","AP","N","T","J","TW"} '定义12个月对应英文

Dim str As String
   str=ics(s-1)
'Output.Show(str)
Dim s1 As String =Format(#4/21/2015#,"ddMMyyyy")
Dim s2 As String
s2 = s1.Replace(s,str) '将123替换为789
OutPut.Show(s2)

e.DataRow("日期") = Date.Today()

在DataColChanged事件中设置如下代码即可：　

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim d As Integer = Date.Today.day
Dim StartDate As Date
StartDate = New Date(y,m,d)
Dim s As String = Format(StartDate,"MM")
Dim ics() As String = {"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"} '定义12个月对应英文
Dim str As String
   str=ics(s-1)
Dim ss As String =Format(StartDate,"ddMMyyyy")
ss = ss.Replace(s,str)

e.DataRow("日期") = ss

用增加行试一试