Foxtable(狐表)用户栏目专家坐堂 → 在目录树AfterSelectNode事件提示“未将对象引用设置到对象的实例”


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

主题:在目录树AfterSelectNode事件提示“未将对象引用设置到对象的实例”

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


加好友 发短信
等级:三尾狐 帖子:703 积分:7047 威望:0 精华:0 注册:2012/11/4 23:10:00
在目录树AfterSelectNode事件提示“未将对象引用设置到对象的实例”  发帖心情 Post By:2014/9/3 9:12:00 [显示全部帖子]

目录树是通过数据表生成的,在用命令增加目录树节点与数据表行后,在目录树AfterSelectNode事件提示“未将对象引用设置到对象的实例”,请问原因及解决办法?谢!


 回到顶部
帅哥哟,离线,有人找我吗?
苍风霁月
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:703 积分:7047 威望:0 精华:0 注册:2012/11/4 23:10:00
  发帖心情 Post By:2014/9/3 9:17:00 [显示全部帖子]

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")

If e.node.DataRow("状态") ="0" Then
    Dim Result As DialogResult
    Result = MessageBox.Show("是否激活?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        e.Node.DataRow("状态") ="1"
    Else
        Return
    End If
Else
    Dim nms As New List(of String)
    If e.node.DataRow.IsNull("用户列表") = False Then
        nms.AddRange(e.node.DataRow("用户列表").Split(","))       
        For Each nd As WinForm.TreeNode In trv2.AllNodes
            nd.Checked = nms.Contains(nd.Name)
        Next
    End If
End If


 回到顶部
帅哥哟,离线,有人找我吗?
苍风霁月
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:703 积分:7047 威望:0 精华:0 注册:2012/11/4 23:10:00
  发帖心情 Post By:2014/9/3 9:34:00 [显示全部帖子]

如何排除目录树中未关联datarow的节点?有办法没?

 回到顶部
帅哥哟,离线,有人找我吗?
苍风霁月
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:703 积分:7047 威望:0 精华:0 注册:2012/11/4 23:10:00
  发帖心情 Post By:2014/9/3 9:37:00 [显示全部帖子]

谢谢,搞定!

 回到顶部