VB复杂的Treeview列表更新问题求解

来源：百度知道 编辑：UC知道 时间：2024/05/09 01:56:20
VB有十个用户在Treeview列表中，分别是：
a1,a2,a4,a6,a8,a9,a11,a23,a34,a56
对应的名称是：
张三，李四，王五，陈六，赵七，钱八，孙九，林十

要求在不清除所有列表的情况下实现自动更新列表，如：

当不再存在a2,a11用户（或其它）时，删除相应节点。
当同时增加a78,a90,a91用户时（对应名称是何东，林西），增加到列表中。
Dim aa1
Dim bb1
Dim aa2
Dim aa3
Dim bb3

Private Sub Form_Load()

aa1 = "a1,a2,a4,a6,a8,a9,a11,a23,a34,a56"

bb1 = "某一,某二,张三,李四,王五,陈六,赵七,钱八,孙九,林十"

aa2 = "a1 , a4, a6, a8, a9, a23, a34, a56"

aa3 = "a1,a4,a6,a8,a9,a23,a34,a56,a78,a91，a78,a91"
bb3 = "某一,某二,张三,王五,陈六,钱八,孙九,林十,何东,林西"

aa11 = Split(aa1, ",")
bb11 = Split(bb1, ",")
For i = 0 To UBound(aa11)
TreeView1.Nodes.Add , , aa11(i), bb11(i)
Next i
End Sub

Private Sub Command1_Click()
'这里检查aa2比aa1是否少了人，少了的话删除相关节点
End Sub

Private Sub Command2_Click()
'这里检查aa3是否多了人，多了的话增加节点
End Sub

三次补充：一晚上都弄这个了。注意：aa3里面的关键字不能有重复的。
Dim aa1
Dim bb1
Dim aa2
Dim aa3
Dim bb3
Dim aa11
Dim bb11

Private Sub Form_Load()

aa1 = "a1,a2,a4,a6,a8,a9,a11,a23,a34,a56"

bb1 = "某一,某二,张三,李四,王五,陈六,赵七,钱八,孙九,林十"

aa2 = "a1,a4,a6,a8,a9,a23,a34,a56"

aa3 = "a1,a4,a6,a8,a9,a23,a34,a56,a78,a90"
bb3 = "某一,某二,张三,王五,陈六,钱八,孙九,林十,何东,林西"

aa11 = Split(aa1, ",")
bb11 = Split(bb1, ",")
For i = 0 To UBound(aa11)
TreeView1.Nodes.Add , , aa11(i), bb11(i)
Next i
End Sub

Private Sub Command1_Click()
'这里检查aa2比aa1是否少了人，少了的话删除相关节点
Dim s, n1, n2
s = Split(aa2, ",")
For Each n1 In aa11
Dim flag As Boolean
flag = False
For Each n2 In s
If n1 = n2 Then flag = True: Exit For
Next
If flag = False Then TreeView1.Nodes.Remove n1
Next
End Sub
<