Dim cmd As New SQLCommandDim dt As DataTablecmd.CommandText = "SELECT DISTINCT 业务年度,业务部门 From {经营管控}"dt = cmd.ExecuteReader()Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")trv.BuildTree(dt,"业务年度|业务部门")trv.Nodes.Insert("加载所有数据",0)