你是说目录树没有了？你的目录树是怎么生成的？

递归生成的，之前一直好好的，今天用的时候突然就目录树为空了

AddChildren函数：

Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
Dim drs As List(of DataRow)
drs = dt.Select("[superName] = \'" & nd.name & "\'")
For Each dr As DataRow In drs
    Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("organName"),dr("organName"))
    Functions.Execute("AddChildren",cd,dt)
Next

AfterLoad函数：

Dim tr As WinForm.TreeView = e.Form.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
        nd = tr.Nodes.Add(dr("organName"),dr("organName"))
        Functions.Execute("AddChildren",nd,dt)
    End If
Next
tr.ResumeRedraw()

主要就这两个函数，我都没改动这些，但是现在目录树打开时是空的

1、目录树【全部】这个节点生成了没有？

2、是不是你修改了表格数据？表数据加载出来了没有？

1、全部加载了

2、我添加过两条名字一样的，然后现在删除了，表格数据现在和数据库了里面是统一的 ，没有问题

不生成，绝对是你数据有问题。加入msgbox弹出各个值看一下。

如果自己不会做，上传实例测试。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目9.table

表：organList1是临时的内部表

窗口1和窗口2是测试窗口，

还是生成不了，您看看

加入一行【总行】的数据，superName改成空白