Question

vb 怎么让listbox中的项不处于选中状态时清除另一个listbox关联数据

我用listbox1.AddItem从sql数据表"专业名称"字段内容，如比"汉语"，"英语","数学"等专业名称,当选中“汉语”这个复选框的时候另一个listbox2显示其"汉语"专业下面班级如:"汉语1班","汉语2班","汉语3班"，选择"英语"专业时listbox2中继续添加:"英语1班","英语2","英语3"，我现在想实现在我把listbox1中"汉语"这个项的复选取消的时候listbox2"汉语1班，2班，3班"相关信息删除，但"英语1班","英语22","英语3班"还保留在listbox2中，请各位大大教下！
If List_zy.Selected(List_zy.ListIndex) = True Then '判断是否选中复选框
FDText_zydm.Text = List_zy.List(List_zy.ListIndex) '提取选中信息
lj1.Open "select * from bjjbxxb where 所属专业代码= '" & FDText_zydm.Text & " '", gObjSDataLink, adOpenKeyset, adLockPessimistic
Do While Not lj1.EOF And Not lj1.BOF
List_bj.AddItem (Trim(lj1("班级名称")))
lj1.MoveNext
Loop
lj1.Close
Else
-------------------------------这里怎么写代码清除选中状态时List_bj.AddItem (Trim(lj1("班级名称")))的信息，不要用List.Clear哈，因为我不是想全部清除 还想保留其它选中项目的关联信息。
End If

Answer 1

在list 单击按钮加入代码,已包含你的代码
Private Sub List1_Click()
If List_zy.Selected(List_zy.ListIndex) = True Then '判断是否选中复选框
FDText_zydm.Text = List_zy.List(List_zy.ListIndex) '提取选中信息
lj1.Open "select * from bjjbxxb where 所属专业代码= '" & FDText_zydm.Text & " '", gObjSDataLink, adOpenKeyset, adLockPessimistic
Do While Not lj1.EOF And Not lj1.BOF
List_bj.AddItem (Trim(lj1("班级名称")))
lj1.MoveNext
Loop
lj1.Close
Else

Dim a As String
a = List_zy.Text
For i = List_bj.ListCount To 1 Step -1
If InStr(1, List_bj.List(i - 1), a) <> 0 Then
List_bj.RemoveItem i - 1
End If
Next
end if
End Sub

Answer 2

告诉你一个比较笨的办法吧:
先清光LIST2里所有的条目,
再重新添加一次LIST1中所选条目下的细项.