Dim cmd As New SQLCommand Dim dt As DataTable cmd.CommandText = "SELECT 产品编号 + '|' + 产品名称 as 产品, 客户编号 + '|' + 客户名称 as 客户 From {订单}" dt = cmd.ExecuteReader() Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree(dt,"产品|客户") trv.Nodes.Insert("加载所有数据",0)