主题：[求助]

Select Case e.DataCol.name

    Case "a","b"

        Dim v As String

        If e.DataRow.IsNull("a") Then

            v = e.DataRow("b")

        Else

            v = e.DataRow("a")

        End If

        

        If v.Length >= 4 Then

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

            Dim y,m,d As Integer

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

            e.DataRow("c") = y

        End If

End Select