vb 怎么让listbox中的项不处于选中状态时清除另一个listbox关联数据
我用listbox1.AddItem从sql数据表"专业名称"字段内容,如比"汉语","英语","数学"等专业名称,当选中“汉语”这个复选框的时候另一个listbox2显...
我用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 展开
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 展开
2个回答
展开全部
在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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询