专家坐堂-这段代码该怎么改？哪位老师来帮帮我啊！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这段代码该怎么改？哪位老师来帮帮我啊！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43182)

--  作者：zhang_yugang
--  发布时间：2013/12/1 20:27:00
--  这段代码该怎么改？哪位老师来帮帮我啊！

Dim str As String = e.Sender.text
If str > "" Then
    For Each cbl As String In e.Sender.ComboList
        If cbl Like "\'*" & str & "*\'" Then
            e.Sender.text = cbl
        Else
            MessageBox.Show("未有匹配项目!","提示")
            Return
        End If
    Next
End If

好像红色的代码有错误，它老弹出对话框！

--  作者：yan2006l
--  发布时间：2013/12/1 20:34:00
--

放错事件了吧，那个事件是个死循环说不定

--  作者：zhang_yugang
--  发布时间：2013/12/1 20:37:00
--
这个怎么会呢？应该不是死循环，它只弹出一次对话框。

--  作者：逛逛
--  发布时间：2013/12/1 20:38:00
--

字符串有这个函数（like）?

还的确有，不好意思

[此贴子已经被作者于2013-12-1 20:56:45编辑过]

--  作者：zhang_yugang
--  发布时间：2013/12/1 20:38:00
--
我是放在ComboBox的Leave事件中的

--  作者：逛逛
--  发布时间：2013/12/1 20:44:00
--

俺错了

俺去看帮助

[此贴子已经被作者于2013-12-1 21:00:44编辑过]

--  作者：有点甜
--  发布时间：2013/12/1 20:47:00
--
试试加一个括号

Dim str As String = e.Sender.text
If str > "" Then
    For Each cbl As String In e.Sender.ComboList
        If (cbl Like ("\'*" & str & "*\'")) Then
            e.Sender.text = cbl
        Else
            MessageBox.Show("未有匹配项目!","提示")
            Return
        End If
    Next
End If

--  作者：逛逛
--  发布时间：2013/12/1 21:31:00
--

以下是引用zhang_yugang在2013-12-1 20:27:00的发言：

Dim str As String = e.Sender.text
If str > "" Then
    For Each cbl As String In e.Sender.ComboList
        If cbl Like "*" & str & "*" Then    通配符不需要单引号
            e.Sender.text = cbl

             Return    找到就返回
        End If
    Next

         MessageBox.Show("未有匹配项目!","提示")   遍历后没有结果再提示

End If

俺帮助看完回来了

--  作者：有点甜
--  发布时间：2013/12/1 21:36:00
--