- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 复选列表框如何做 循环查找 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75071)
-- 发布时间：2015/9/25 19:11:00
-- 复选列表框如何做 循环查找
此主题相关图片如下：0707.gif
加一个查找框 如输入查找值: 三
光标停留 在第一个 含三的项目上,如果再点下一个,则光标停留 在下一个 含三的项目上或者提示 没有了.
-- 发布时间：2015/9/26 22:36:00
--
http://www.foxtable.com/help/topics/0934.htm
-- 发布时间：2015/9/28 9:24:00
--
恩,首个查找知道怎么做了,但使用模糊查找时,如何做 下一个按钮, 循环选择下一个呢
-- 发布时间：2015/9/28 9:28:00
--
要灵活：
Dim cmb As WinForm.ComboBox
cmb = e.Form.Controls("ComboBox1")
Dim match As boolean
For i AsInteger = cmb.SelectedIndex To cmb.Items.Count - 1
If cmb.Items(i) = "上海"Then
cmb.SelectedIndex = i
match = True
EndIf
Next
If Match then
Return
end if
For i AsInteger = 0 To cmb.Items.Count - 1
If cmb.Items(i) = "上海"Then
cmb.SelectedIndex = i
EndIf
Next