Dim cmd As New SQLCommand Dim dt As DataTable cmd.CommandText = "SELECT DISTINCT 部门,课,系,班,班别 From {人员资料}" dt = cmd.ExecuteReader() Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree(dt,"部门|课|系|班|班别") trv.Nodes.Insert("加载所有数据",0)