Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")tv.BuildTree("产品表", "产品名称|规格")
For Each nd As WinForm.TreeNode In tv.AllNodes If nd.Level = 1 Then nd.Text = nd.DataRow("型号") End IfNext