问下：3楼的代码，在任何位置用MessageBox.show（）测试，都没有问题，只是降级日期列，始终没有变化
但是，将下述代码，是复制3楼代码，只是红色部分修正，降级日期列就有了正确的结果，是什么原因呢？
'合并excel数据到"推荐人手机"列,系统自动延长"降级日期"列
If e.DataRow.Isnull("推荐人手机") = False Then
Dim tjrsj As Double = e.DataRow("推荐人手机") '定义,推荐人手机,首字母命名
Dim drjj As DataRow = DataTables("男生资料").Find("[手机号码] = '" & tjrsj & "'") '定义推荐人所在的行,根据推荐人手机号,找到推荐人所在的行.变量名是dr降级的首字母
If drjj.Isnull("降级日期") Then
Dim d As Date = drjj("降级日期") '定义已有降级日期
Dim t As Date = Date.today '定义当天日期
If drjj IsNot Nothing Then
drjj("降级日期") = t.adddays(30) '加上30天
MessageBox.show(d)
Else
drjj("降级日期") = d.adddays(30) '加上30天
End If
Else
MessageBox.show("没有符合条件的行,当然不会有动作")
End If
Else
MessageBox.show("这个时候,推荐人手机还没有输入吧,这种情况,应该是DatacolChanged事件,不是DataRowAdded事件")
End If
加好友 
发短信
Post By：2016/10/24 9:31:00 [显示全部帖子]
