主题：日期格式转换

代码这样写

Dim dr As DataRow = e.DataRow
If dr.IsNull("第一列") OrElse dr("第一列").length<>8 Then
    dr("第二列") = Nothing
Else
    dr("第二列") = new Date(dr("第一列").Substring(0,4),dr("第一列").Substring(4,2),dr("第一列").Substring(6,2))
End If