以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  “包含”函数的应用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137454)
--  作者：wangj6666
--  发布时间：2019/7/6 13:11:00
--  “包含”函数的应用
各位专家好！
      今天想咨询一个有关”包含“的代码问题：有两个主表分别为表1表2，我想在表1中新增一数据列，且让该列的字符内容为：如果表1中产品名称列包含表2中产品编号列的字符，请等于表2中产品编号列的字符，否则就为空。请问需要如何设置代码？谢谢！
--  作者：有点蓝
--  发布时间：2019/7/6 13:55:00
--  
参考：http://www.foxtable.com/webhelp/topics/0625.htm、http://www.foxtable.com/webhelp/topics/1451.htm

If e.DataCol.Name = "产品名称" Then 
    If e.DataRow.IsNull("产品名称") Then 
        e.DataRow("产品编号") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("表2").Find("\'" & e.NewValue & "\' like \'%\' + [产品编号] + \'%\'")
        If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("新增一数据列) = dr("产品编号") 
        End If
    End If
End If
--  作者：wangj6666
--  发布时间：2019/7/6 17:13:00
--  
OK! 谢谢！