主题：两个字符串如何快速判断是否包含其中部份

 必须分隔str2，然后循环str2

Dim str1 As String = "业务部.经理,业务部.主管,生产部.经理,生产部.文员"

Dim str2 As String = "业务部.主管,生产部.经理,123"

Dim ary() As String = str1.Split(",")
Dim flag As Boolean = True
For Each s As String In str2.Split(",")
    If Array.IndexOf(ary,s) = -1 Then
        flag = False
        Exit For
    End If
Next
msgbox(flag)

 看3楼

 加一个辅助列，去编写datacolchanged事件，得到是否存在，这样利于搜索查询。

 

 不然，就必须循环每一行才能得到结果。

 str1和str2的比较，是一行一行的比较，还是一整列合并以后比较？

 

 如果是一整列，可以用8楼的代码

 7楼，已经告诉你方法了，用代码处理，得出主键，最后筛选主键。

不行，必须用代码处理得到结果。

 

 如果是true，就取得其主键合成主键的字符串。