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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 后台加载目录树时过滤

共有2474人关注过本帖树形打印复制链接主题：后台加载目录树时过滤

刘林

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00

后台加载目录树时过滤 发帖心情

Post By：2016/11/2 8:30:00 [显示全部帖子]

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.connectionname = XX

cmd.CommandText = "SELE CT DISTINCT 学校名称,年级,班级 From {学生信息}"

dt = cmd.ExecuteReader()

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree(dt,"学校名称|年级|班级")

trv.Nodes.Insert("加载所有数据",0)

老师，请问我的用户分组用的是学生信息表中学校代码后4位，我想在后台加载目录树时只加载自己学校的年级班级，这样选择加载时时不会加载其他学校的，怎么改上面的句子,谢谢

刘林

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/11/2 10:16:00 [显示全部帖子]

非常谢谢，解决了想法了,还望多指导

刘林

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/11/2 10:36:00 [显示全部帖子]

Dim txt As String = e.sender.Text

Dim schoolname As String = user.group

If txt = "" Then

DataTables("学生信息").LoadFilter =""

Else

txt = "'%" & txt & "%'"

DataTables("学生信息").LoadFilter = "身份证件号 Like " & txt & " Or 学生姓名 Like " & txt & " Or 家庭成员姓名 Like " & txt & " Or 联系电话 Like " & txt & "And 学校名称 = "& schoolName

End If

DataTables("学生信息").Load

老师，我想用楼上类似方法，将textbox的查找改成上面内容，这校在后台查找时只在自己学校记录内查找加载，提示: 列名 '内江市东兴区苏家乡中心学校' 无效。请问是什么原因，怎么改

刘林

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/11/2 11:08:00 [显示全部帖子]

我试验了下，还是能找出其他学校的学生记录呢？

刘林

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/11/2 11:40:00 [显示全部帖子]

哦，谢谢

Dim g As New GroupTableBuilder("学生统计", DataTables("学生信息"))

Dim dt1 As Table = Tables("学生统计_table1")

g.Groups.AddDef("学校名称")

g.Groups.AddDef("年级")

g.Groups.AddDef("班级")

g.Totals.AddDef("学生姓名",AggregateEnum.Count,"人数")

g.Totals.AddDef("性别",AggregateEnum.Count,"男")

g.FromServer = True

dt1.DataSource = g.BuildDataSource()

另请教如果要后台统计出性别为男这句怎么改

刘林

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/11/2 13:23:00 [显示全部帖子]

这样是统计出了男生数，位学生总人数与男生数一样了呢

刘林

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/11/2 13:25:00 [显示全部帖子]

Dim g As New GroupTableBuilder("学生统计", DataTables("学生信息"))

Dim dt1 As Table = Tables("学生统计_table1")

g.Groups.AddDef("学校名称")

g.Groups.AddDef("年级")

g.Groups.AddDef("班级")

g.Totals.AddDef("学生姓名",AggregateEnum.Count,"人数")

g.Filter = "性别 = '男'"

g.Totals.AddDef("性别",AggregateEnum.Count,"男")

g.Filter = "性别 = '女'"

g.Totals.AddDef("性别",AggregateEnum.Count,"女")

g.FromServer = True

dt1.DataSource = g.BuildDataSource()

刘林

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/11/2 13:25:00 [显示全部帖子]

我加了性别女的统计后，男，女，人数列都一样了呢

刘林

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/11/2 14:02:00 [显示全部帖子]

为什么总人数与男一样呢

下一主题 >> << 上一主题

主题：后台加载目录树时过滤