以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码取值有点问题,帮忙看下  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16092)

--  作者:lsfdf
--  发布时间:2012/2/2 10:19:00
--  代码取值有点问题,帮忙看下

当月份大于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


此主题相关图片如下:未命名2.jpg
按此在新窗口浏览图片

--  作者:狐狸爸爸
--  发布时间:2012/2/2 10:35:00
--  
If e.DataCol.Name = "有效期" Then
    Dim dt As DataRow = e.DataRow
    If dt.IsNull("有效期") Then
        dt("有效期至") = Nothing
    Else
        Dim t As Date=  dt("有效期")
        t= t.Year & "-" & t.Month
        dt("有效期至") = t
    End If
End If

--  作者:lsfdf
--  发布时间:2012/2/2 11:10:00
--  

谢谢思路,变通了下,不然要报错

If e.DataCol.Name = "有效期" Then
    Dim dt As DataRow = e.DataRow
    If dt.IsNull("有效期") Then
        dt("有效期至") = Nothing
    Else
        Dim t As Date=  dt("有效期")

      dim t1 as string
        t1= t.Year & "-" & t.Month
        dt("有效期至") = t1
    End If
End If

 

比原来的好些了,取出来是:2012-4

 

我还是格式成2012-04 这样的,该如何操作呢