Foxtable(狐表)用户栏目专家坐堂 → 在datarowadded事件,希望合并excel到推存人手机列,降级日期自动延长,添加行,系统报错


  共有1721人关注过本帖树形打印复制链接

主题:在datarowadded事件,希望合并excel到推存人手机列,降级日期自动延长,添加行,系统报错

帅哥哟,离线,有人找我吗?
zhangjian222200
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:11003 威望:0 精华:0 注册:2016/9/12 11:18:00
在datarowadded事件,希望合并excel到推存人手机列,降级日期自动延长,添加行,系统报错  发帖心情 Post By:2016/10/23 12:40:00 [显示全部帖子]

在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编辑过]

 回到顶部