Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")Dim nn As IntegerFor Each nd As WinForm.TreeNode In trv.AllNodes nn = nn +1 If nd.IsSelected = True Then Exit For End IfNextoutput.show(nn) '***** 是这个“ID” 吗?