以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] like 函数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85161)
--  作者：zcgmxf
--  发布时间：2016/5/19 7:55:00
--  [求助] like 函数

老师 ， 这句代码该如何写 （按钮chick）

 

    Dim fphm As WinForm.TextBox = e.Form.Controls("TextBox3")
    Dim r As Row = Tables("收费登记表").current

    Dim str As String = r("作废发票号码")
    For Each s As String In str.Split(";")
        If  " str.Split(";") Like \'%" & fphm.Value & "%\'"  Then
--  作者：Hyphen
--  发布时间：2016/5/19 8:51:00
--  
If  s Like "*" & fphm.Value & "*"  Then