\'根据"推荐人手机"列,系统自动延长"降级日期"列

If e.DataRow("推荐人手机") IsNot Nothing Then

    Dim tjrsj As Double = e.DataRow("推荐人手机")    \'定义,推荐人手机,首字母命名

    Dim drjj As DataRow = DataTables("男生资料").Find("[手机号码] = \'" & tjrsj & "\'")    \'定义推荐人所在的行,根据推荐人手机号,找到推荐人所在的行.变量名是dr降级的首字母

    Dim d As Date = drjj("降级日期")                 \'定义已有降级日期

    Dim t As Date = Date.today                       \'定义当天日期

    If drjj("降级日期") Is Nothing Then

        d = t.adddays(30) \'加上30天

    Else

        d = d.adddays(30) \'加上30天

    End If

End If