函数这里
......
For Each Nd As WinForm.TreeNode In TvwCtl.AllNodes If Nd.Level = i Then Dim idx = Nd.Text.IndexOf(" ") If idx > 0 Then Nd.Text = Nd.Text.SubString(0,idx) End If End If Next