专家坐堂-不包含字符代码该怎写？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不包含字符代码该怎写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96916)

--  作者：L88919138
--  发布时间：2017/3/2 12:24:00
--  不包含字符代码该怎写？

For Each dr As DataRow In DataTables("存货档案").DataRows
    Dim s As String = DR("备注")
    Dim tr1 As DataRow
    tr1 = DataTables("开票数据").Find("[规格型号] = \'" & DR("规格型号") & "\' And [商品名称] = \'" & DR("名称") & "\'")




If " " & s & " not LIKE " & tr1("厂商品牌") & ""

        s = s & "/" & tr1("厂商品牌")
    End If
Next

此主题相关图片如下：未命名.jpg

--  作者：有点色
--  发布时间：2017/3/2 14:20:00
--
For Each dr As DataRow In DataTables("存货档案").DataRows
    Dim s As String = DR("备注")
    Dim tr1 As DataRow
    tr1 = DataTables("开票数据").Find("[规格型号] = \'" & DR("规格型号") & "\' And [商品名称] = \'" & DR("名称") & "\'")

    If s.Contains(tr1("厂商品牌")) = False Then
        dr("备注") = s & "/" & tr1("厂商品牌")
    End If
Next

--  作者：L88919138
--  发布时间：2017/3/2 16:09:00
--

谢谢大师指点