如何判断字段数据是否为包含关系？我们一般都用instr函数，它是返回某字符串在另一字符串中第一次出现的位置。

下面的示例我们从对比表中两个字段的值，判断其是否为包含关系

Public Function AinB(ByVal a As String, b As String) As Boolean

    Dim Index As Integer     If Trim(a) <> "" And Trim(b) <> "" Then         For Index = 1 To Len(b)             If InStr(a, Mid$(b, Index, 1)) = 0