主题：合并excel数据到表，需要其他列联动的问题？

原因是：

http://www.foxtable.com/webhelp/scr/2044.htm

 

因为有的时候，符合条件的行并不存在。

 

还有：

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

 

应该改为：

 

If drjj.Isnull("降级日期") Then

 

理由：

http://www.foxtable.com/webhelp/scr/1470.htm

 

 

If e.DataRow("推荐人手机") IsNot Nothing 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
    End If
End If