Foxtable(狐表)用户栏目专家坐堂 → 不包含字符代码该怎写?


  共有1776人关注过本帖树形打印复制链接

主题:不包含字符代码该怎写?

帅哥哟,离线,有人找我吗?
L88919138
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:722 积分:6898 威望:0 精华:0 注册:2012/3/1 7:20:00
不包含字符代码该怎写?  发帖心情 Post By: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("开piao数据").Find("[规格型号] = '" & DR("规格型号") & "' And [商品名称] = '" & DR("名称") & "'")
    

 

 


    

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

 

 

 

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

 

 

 

 


此主题相关图片如下:未命名.jpg
按此在新窗口浏览图片

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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("开piao数据").Find("[规格型号] = '" & DR("规格型号") & "' And [商品名称] = '" & DR("名称") & "'")
   
    If s.Contains(tr1("厂商品牌")) = False Then
        dr("备注") = s & "/" & tr1("厂商品牌")
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
L88919138
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:722 积分:6898 威望:0 精华:0 注册:2012/3/1 7:20:00
  发帖心情 Post By:2017/3/2 16:09:00 [只看该作者]

谢谢大师指点

 


 回到顶部