- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]下拉列表Listview (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78900)
-- 发布时间：2015/12/20 9:21:00
-- [求助]下拉列表Listview
老师，
麻烦您帮忙给看下为什么DropDownOpening 的代码不执行，麻烦您了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:复件 管理项目2.table |
-- 发布时间：2015/12/20 10:08:00
--
说实话,看了下,感觉没什么逻辑性,很乱
-- 发布时间：2015/12/20 11:35:00
--
红袍老师，
能否给看下。
-- 发布时间：2015/12/20 11:49:00
--
\'下拉复选框
Dim lvw As WinForm.ListView = e.Form.Controls("ListView3")
Dim ss() As String = e.Form.DropDownBox.Value.split(",")
For Each r As WinForm.ListViewRow In lvw.Rows
If array.IndexOf(ss, r("姓名")) >= 0 Then
r.Checked = True
Else
r.Checked = False
End If
Next
-- 发布时间：2015/12/21 14:04:00
--
老师，
下拉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
-- 发布时间：2015/12/21 14:04:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:复件 管理项目2.table |
-- 发布时间：2015/12/21 14:29:00
--
Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then \'如果下拉窗口已经打开
For Each bt As object In Forms(drp.DropFormName).Controls
If Typeof bt Is WinForm.ListView Then \'判断控件是否是目录树
Dim lvw As WinForm.ListView = bt
Dim ss As String =e.Sender.Text
If ss > "" Then
Dim vals() As String = e.Sender.Text.split(",")
lvw.Select
For Each r As WinForm.ListViewRow In lvw.Rows
If array.IndexOf(vals, r("姓名")) >= 0 Then
r.Selected=True
Exit For
End If
Next
End If
End If
Next
End If