主题：合并excel数据到表，需要其他列联动不能实现，系统无提示，麻烦检查，谢谢

If e.DataRow.Isnull("推荐人手机") = False Then
    Dim tjrsj As Double = e.DataRow("推荐人手机")    '定义,推荐人手机,首字母命名
    Dim drjj As DataRow = DataTables("男生资料").Find("[手机号码] = '" & tjrsj & "'")    '定义推荐人所在的行,根据推荐人手机号,找到推荐人所在的行.变量名是dr降级的首字母
    If  drjj  IsNot Nothing Then
        Dim d As Date = drjj("降级日期")                 '定义已有降级日期
        Dim t As Date = Date.today                       '定义当天日期
        If drjj.Isnull("降级日期") Then
            d = t.adddays(30) '加上30天
        Else
            d = d.adddays(30) '加上30天
        End If
    Else
        MessageBox.show("没有符合条件的行,当然不会有动作")
    End If
Else
        MessageBox.show("这个时候,推荐人手机还没有输入吧,这种情况,应该是DatacolChanged事件,不是DataRowAdded事件")
End If

学会一些基本的调试，可以自己解决多数问题。

DataColChanged事件：

Select Case e.DataCol.name
    Case "推荐人手机"
        Dim drjj As DataRow = DataTables("男生资料").Find("[手机号码] = '" & e.NewValue & "'")    '定义推荐人所在的行,根据推荐人手机号,找到推荐人所在的行.变量名是dr降级的首字母
        If  drjj  IsNot Nothing Then
            Dim d As Date = drjj("降级日期")                 '定义已有降级日期
            Dim t As Date = Date.today                       '定义当天日期
            If drjj.Isnull("降级日期") Then
                d = t.adddays(30) '加上30天
            Else
                d = d.adddays(30) '加上30天
            End If
        End If
End elect