Dim cmd As New SQLCommand Dim dt As DataTable cmd.c区业务主管") cmd.CommandText = "SE LECT DISTINCT 学校名称, 年级, 班级 From {学生信息} " Else cmd.CommandText = "SELE CT DISTINCT 学校名称, 年级, 班级 From {学生信息} where 学校名称 = '" & _usergroup & "'" End If dt = cmd.ExecuteReader() Dim trv As WinForm.TreeView = Forms("学生信息").Controls("TreeView1") trv.BuildTree(dt,"学校名称|年级|班级")