合并excel数据到表，需要其他列联动的问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如题：

在事件增加行datarowadding下，写代码，可以吗？

写到datarowadded事件

在datarowadded事件，加入代码，希望推存人手机列改变，降级日期自动延长，不知什么原因，代码未能实现，提示如下：

.NET Framework 版本：2.0.50727.3655

Foxtable 版本：2016.7.29.1

错误所在事件：表，男生资料，DataRowAdded

详细错误信息：

调用的目标发生了异常。

未将对象引用设置到对象的实例。

以下是代码：

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

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

[此贴子已经被作者于2016/10/23 9:54:28编辑过]

麻烦大神看下，谢谢

原因是：

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

[此贴子已经被作者于2016/10/23 16:40:01编辑过]

上述代码，复制到datarowadded事件，降级日期列依然不动；

重置列、重启系统，也不行；

测试放到datacolchanged事件也不行；

检查代码，却未发现逻辑没有什么错误；详见附图，请再查看下，谢谢！

此主题相关图片如下：222.png

此主题相关图片如下：111.png

重新贴出你修改后的完整代码

或者上传例子测试

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