老师， 下拉DROPBOX的textchangged 的代码没有执行，烦请老师给看看为什么不对？
Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then '如果下拉窗口已经打开
For Each bt As object In E.Form.Controls
If Typeof bt Is WinForm.ListView Then '判断控件是否是目录树
Dim lvw As WinForm.ListView = Forms("通用目录树").Controls(bt.name)
Dim ss As String =e.Sender.Text
If ss > "" Then
Dim vals() As String = e.Sender.Text.split(",")
For Each r As WinForm.ListViewRow In lvw.Rows
If array.IndexOf(vals, r("姓名")) >= 0 Then
r.Selected=True’这块为什么没有选定呢？
End If
Next
Else
For Each r As WinForm.ListViewRow In lvw.Rows
r.Selected=False
Next
End If
End If
Next
End If
加好友 
发短信
Post By：2015/12/20 9:21:00 [显示全部帖子]
