- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 不包含字符代码该怎写？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96916)
-- 发布时间：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
-- 发布时间：2017/3/2 16:09:00
--
谢谢大师指点