主题：字符转换成日期

Select Case e.DataCol.Name
    Case "月份","选择"
     Dim m As String= dr("月份").substring(0,3)
     Dim y As String = dr("月份").substring(4,2) 
     Dim dt1 As New Date(y, m, 1) '获取该月的第一天     
     dr("开始日期") = dt1    
     Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天    
     dr("结束日期") =dt2