左栏'); } else{ document.write('关闭左栏'); } }catch(e){alert(e);}
Foxtable(狐表)用户栏目专家坐堂 → 目录树学生同名


  共有2358人关注过本帖树形打印复制链接

主题:目录树学生同名

美女呀,离线,留言给我吧!
联友
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2565 威望:0 精华:0 注册:2013/5/23 9:49:00
目录树学生同名  发帖心情 Post By:2018/12/25 21:51:00 [只看该作者]

学生信息表有学生编号(是唯一)、学生姓名、身份证号、父亲姓名等,用目录树输入,如果班级有同名怎么处理。请老师指教,谢谢!
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.CommandText = "Sel ect 班级,学生姓名,a.学生编号 From ({学生信息} a INNER JOIN {缴学费} b ON a.学生编号 = b.学生编号) LEFT JOIN (Sel ect 学生编号 From {学生退费} Where 学期 = '20181' And 退费项目 = '学费') c ON b.学生编号 = c.学生编号 WHERE 学期 = '20181' And c.学生编号 Is Null ORDER BY a.学生编号"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
trv.BuildTree(dt,"班级|学生编号")
trv.StopRedraw '停止绘制目录树
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level = 1 Then 
       nd.Text = nd.DataRow("学生姓名")
    End If
Next
trv.ResumeRedraw '恢复绘制目录树
[此贴子已经被作者于2018/12/25 21:55:20编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/25 21:56:00 [只看该作者]

同时显示编号

nd.Text = nd.DataRow("学生姓名") & “ - ” & nd.DataRow("学生编号")

 回到顶部
帅哥哟,离线,有人找我吗?
Liangcai
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2541 威望:0 精华:0 注册:2011/9/24 13:30:00
  发帖心情 Post By:2018/12/26 8:15:00 [只看该作者]

好的

 回到顶部