主题：[求助]

 加入msgbox弹出对应的值

Dim d As DataRow = e.DataRow
Dim y,m,dd As Integer
Dim d1 As Date = d("第二次实际接种日期")
Dim d2 As Date = d("第二次按程序接种日期")
DateYMD(d1,d2,y,m,dd)
Select Case e.DataCol.Name
    Case "第二次接种剂量","第二次按程序接种日期","第三次接种剂量","第三次按程序接种日期","第二次实际接种日期","第三次间隔"
        If  e.DataRow("第二次接种剂量")  = Nothing Then
            d("第二次按程序接种日期") = Nothing
        Else
            d("第二次按程序接种日期") = e.DataRow("首次接种日期").AddDays(e.DataRow("第二次间隔"))
        End If
        msgbox(2)
        If  e.DataRow("第三次接种剂量") = Nothing Then
            d("第三次按程序接种日期") = Nothing
        Else
            msgbox(3)
            If d("第二次实际接种日期") > d("第二次按程序接种日期")  Then
                msgbox(4)
                d("第三次按程序接种日期") = e.DataRow("首次接种日期").AddDays(e.DataRow("第三次间隔") + dd )
                msgbox(e.DataRow("第三次间隔") + dd )
            Else
                msgbox(5)
                d("第三次按程序接种日期") = e.DataRow("首次接种日期").AddDays(e.DataRow("第三次间隔"))
               
            End If
        End If