以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  用ComboBox动态模糊查询  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115458)
--  作者：ZJZK2018
--  发布时间：2018/3/7 15:07:00
--  用ComboBox动态模糊查询
老师你好：

需求是：在组合框中一旦输入一个字，下拉框自动弹出并找出含有这个字的项目名称，每增加一个字，下拉框中动态找出相关的项目名称。下面这段代码如何修改？谢谢

Dim cb As WinForm.ComboBox = e.Form.Controls("ComboBox4") \'定义一个变量
Dim txt As String = cb.Text \'定义一个变量的值
If Len(txt) = 0 Then \'len是返回字符串的长度,如果字符串长度是0
    cb.Items.Clear \'items是字符集合,表示所有的自定义列表项目,Clear是清除所有页面.
Else
 If Len(txt) += 1 then
    cb.ComboList = DataTables("施工项目信息").GetComboListString("工程名称", "工程名称 Like \'%" & txt & "%\'")
    If cb.DroppedDown = False Then
        cb.OpenDropDown()
    End If
    End If
    Dim dr As DataRow = DataTables("施工项目信息").Find("工程名称 = \'" & cb.Value & "\'")
    If dr IsNot Nothing Then
        Dim ndr As Integer = Tables("施工项目信息").FindRow(dr)
        If ndr >= 0 Then
            Tables("施工项目信息").Position = ndr
        End If
    End If
End If
--  作者：有点甜
--  发布时间：2018/3/7 15:19:00
--  

ComboBox 控件是做不到的，只有下拉窗口可以实现，参考

 

http://www.foxtable.com/webhelp/scr/2466.htm