以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在datarowadded事件，希望合并excel到推存人手机列，降级日期自动延长，添加行，系统报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91969)
--  作者：zhangjian222200
--  发布时间：2016/10/23 12:40:00
--  在datarowadded事件，希望合并excel到推存人手机列，降级日期自动延长，添加行，系统报错
在datarowadded事件，希望合并excel到“推存人手机”列，“降级日期”列自动延长，不知什么原因，未能实现，提示如下：
.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
End If
[此贴子已经被作者于2016/10/23 13:58:14编辑过]
--  作者：y2287958
--  发布时间：2016/10/23 12:52:00
--  
上个例子好滴
--  作者：狐狸爸爸
--  发布时间：2016/10/23 17:01:00
--  

不要重复发帖，我已经在另一个帖子具体回复：

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=91947&skin=0

 

最好也掌握一些基本的调试技巧：

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