Dim str As String
If e.Sender.Checked=True
Dim trv As WinForm.TreeView = e.Form.Controls("treeview2")
For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
If nd.Level = 1 Then '如果是二级节点
If nd.Checked=True
str =str & "单位名称=" & nd.text & " or "
End If
End If
Next
End If
str=str.Trimend(" or ")
messagebox.show(str)
请问老师，拼接的字符串想最后的or去掉，但这样操作没去掉，没找到原因，请问是什么情况
已解决，str=str.Trimend(" “， ”o“，”r ")
[此贴子已经被作者于2022/12/13 22:20:11编辑过]
加好友 
发短信
Post By：2022/12/13 22:03:00 [只看该作者]
