主题：[求助]

Select Case e.DataCol.name

    Case "出生时间"

        If e.DataRow.IsNull("出生时间") Then

            e.DataRow("年龄") = Nothing

        Else

            Dim v As String = e.DataRow("出生时间")

            Dim dt  As New Date(v.substring(0,4),v.substring(4,2),1)

            Dim y,m,d As Integer

            DateYMD(dt,Date.Today,y,m,d)

            e.DataRow("年龄") = y

        End If

End Select
此主题相关图片如下：qq截图20140117122137.jpg