主题：从aftercheckNode换到点击node

老师，我在这个这个事件里面写代码如下：

DataTables("organList").LoadFilter = "organName = '" & _UserOrgan & "' or superName = '" & _UserOrgan & "'"
DataTables("organList").LoadTop = Nothing
DataTables("organList").load

Dim tr  As WinForm.TreeView
tr = Forms("单位管理").Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("organList")
tr.StopRedraw()''停止绘制目录树
tr.Nodes.Clear
'tr.Nodes.Add("全部")
For Each dr As DataRow In dt.datarows
    'If dr.IsNull("superName") Then
    If dr("organName") = _UserOrgan Then
        nd = tr.Nodes.Add(dr("organName"),dr("organName"))
        Functions.Execute("AddChildren",nd,dt)
    End If
Next
tr.ResumeRedraw() ''恢复绘制目录树

就是让它重新生成一次？为啥不行啊，结果就是点加号么反应，而且项目还退出了

改成下面，如果还有问题，做个例子测试

DataTables("organList").LoadFilter = "organName = '" & _UserOrgan & "' or superName = '" & _UserOrgan & "'"
DataTables("organList").LoadTop = Nothing
DataTables("organList").load

Dim tr  As WinForm.TreeView
tr = Forms("单位管理").Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("organList")
tr.StopRedraw()''停止绘制目录树
e.node.nodes.clear
Functions.Execute("AddChildren",e.node,dt)
tr.ResumeRedraw() ''恢复绘制目录树