主题：[求助]如何防止递归函数目录树数据再编辑时排除本身的下级的问题

    Dim  dmp As New  TableDataMap

    dmp.DataTable = "表A"  

    dmp.ValueCol = "名称" 

    dmp.DisplayCol = "名称" 

    dmp.ListCols =  "名称"

dmp.Filter = "[上级] <> '" & Tables("表A").Current("名称") & " '"

    Tables("表A").Cols("上级").DataMap = dmp.CreateDataMap()  

End If