主题：代码取值有点问题，帮忙看下

当月份大于9的时候是正常的，小于的时候应该是2013-07这样的，结果是2013-7-，帮忙看下，谢谢！

If e.DataCol.Name = "有效期" Then
    Dim dt As DataRow = e.DataRow
    If dt.IsNull("有效期") Then
        dt("有效期至") = Nothing
    Else
        Dim t As String=  dt("有效期")
       t= mid(t,1,4) & "-" & Mid(t,6,2)
        dt("有效期至") = t
            End If
End If