主题：[求助]

建议你还是先按部就班看帮助先.

Select Case e.DataCol.name

    Case "a","b"

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

            Dim v As String = e.DataRow("b")

            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

        Else

            Dim v As String = e.DataRow("a")

            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