以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]FIND中LIKE的用法  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117339)

--  作者:huangfanzi
--  发布时间:2018/4/10 22:23:00
--  [求助]FIND中LIKE的用法
假定表1,有以下结构:
捆包号      状态
CA01A    1
CA01AA  2
CA01AB  3
假定表2,结构如下:
捆包号            状态
CA01AAA
CA01AAB
CA01A
在表2中,卷号字段的DataColChanged事件,有以下代码:

If e.DataCol.Name = "捆包号" Then
    If e.DataRow("捆包号") <> Nothing Then
        Dim dr As DataRow
        dr = 表1.SQLFind("\'" & e.DataRow("捆包号") & "\' Like 捆包号%","捆包号 DESC")
        If dr IsNot Nothing Then \'如果找到的话
            e.DataRow("状态") = dr("状态")
             ...

我希望得到的结果是:
表2,结果如下:
捆包号            状态
CA01AAA       2
CA01AAB      2
CA01A           1
因为在FIND中不能用Contains,所以不知如何写
匹配结果的依据是表2中的捆包号包含表1中的捆包号的第一条记录,我上面的写法得到的结果不对,不知如何写,请老师协助下,谢谢!

--  作者:有点蓝
--  发布时间:2018/4/10 22:46:00
--  
dr = 表1.SQLFind("\'" & e.DataRow("捆包号") & "\' Like \'%\' + 捆包号 + \'%\'","捆包号 DESC")