上图不还有很多节点没有勾选吗
Dim cc As Boolean = True For Each nd In trv.AllNodes
If nd.text <> "加载数据" andalso nd.Checked = False Then
加好友 
发短信
Post By：2022/12/15 23:04:00 [显示全部帖子]
