目录树问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim nms As String() = {"考试名称","单位名称","年级代码","班级"} '指定生成目录树的各列

Dim qts As String() = {"'","'","'","'"} '指定将各列的值括起来的符号,这里都是字符型,所以都是单引号

Dim trv As WinForm.TreeView = e.Sender

Dim flt As String

Dim nd As WinForm.TreeNode

For Each nd In e.node.allNodes '清除子节点的选中标记

nd.Checked = False

nd = e.Node.ParentNode

Do While nd IsNot Nothing '清除父节点的选中标记

nd.Checked = False

nd = nd.ParentNode

Loop

For Each nd In trv.AllNodes

If nd.Checked Then

Dim rts() As String = nd.FullPath.Split("\")

Dim val As String = ""

For i As Integer = 0 To rts.length - 1

If val > "" Then

val = val & " And "

End If

val = val & nms(i) & " = " & qts(i) & rts(i) & qts(i)

If flt > "" Then

flt = flt & " Or (" & val & ")"

Else

flt = val

End If

Dim schoolName As String = user.group

DataTables("成绩").LoadFilter = Flt & schoolname

DataTables("成绩").Load()

老师，请问上面代码有问题怎么办

选择显示所有数据时是不加载任何数据不勾选时加载所有数据，我为了不加载其他他学校的，用用户分组限制出现新的错误，请指导.

到底什么问题，请详细说明。操作后是什么效果，实际需要什么效果。出现什么错误？

这种代码反反复复问过好几回了，自己还搞不清楚自己写的代码逻辑？

最后弹出LoadFilter 的内容，看看组合的条件，结合自己的数据分析

msgbox(Flt & schoolname)

试试

Dim schoolName As String = user.group

DataTables("成绩").LoadFilter = "(" & Flt & ") and 学校名称 = '" & schoolname & "'"

msgbox(DataTables("成绩").LoadFilter)

DataTables("成绩").Load()

下载信息 [文件大小：下载次数： ]
点击浏览该文件:desktop.rar

现在主要问题是勾选加载所有数据时出现了所有数据，我是选所有数据时只加载本学校所有的数据，不加载其他学校的（用户分组用的单位名称），且是反起的，就是选了不加载，不选加载,请老师指导

请创建项目上传可以正常运行的的实例。做例子也是一种技能，往往有时做例子的时候就能发现问题了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

老师你好，请提出你宝贵的意见

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

主题：目录树问题