- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 目录树问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92448)
-- 发布时间：2016/11/3 15:17:00
-- 目录树问题
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
Next
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)
Next
If flt > "" Then
flt = flt & " Or (" & val & ")"
Else
flt = val
End If
End If
Next
Dim schoolName As String = user.group
DataTables("成绩").LoadFilter = Flt & schoolname
DataTables("成绩").Load()
老师，请问上面代码有问题怎么办
选择显示所有数据时是不加载任何数据不勾选时加载所有数据，我为了不加载其他他学校的，用用户分组限制出现新的错误，请指导.
-- 发布时间：2016/11/3 15:41:00
--
到底什么问题，请详细说明。操作后是什么效果，实际需要什么效果。出现什么错误？
这种代码反反复复问过好几回了，自己还搞不清楚自己写的代码逻辑？
最后弹出LoadFilter 的内容，看看组合的条件，结合自己的数据分析
msgbox(Flt & schoolname)
-- 发布时间：2016/11/3 15:51:00
--
试试
Dim schoolName As String = user.group
DataTables("成绩").LoadFilter = "(" & Flt & ") and 学校名称 = \'" & schoolname & "\'"
msgbox(DataTables("成绩").LoadFilter)
DataTables("成绩").Load()
-- 发布时间：2016/11/3 16:18:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:desktop.rar |
现在主要问题是勾选加载所有数据时出现了所有数据，我是选所有数据时只加载本学校所有的数据，不加载其他学校的（用户分组用的单位名称），且是反起的，就是选了不加载，不选加载,请老师指导
-- 发布时间：2016/11/3 17:49:00
--
请创建项目上传可以正常运行的的实例。做例子也是一种技能，往往有时做例子的时候就能发现问题了
-- 发布时间：2016/11/3 21:10:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
老师你好，请提出你宝贵的意见
-- 发布时间：2016/11/3 22:36:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3.table |