如何判断字符串是否包含关系

时　间:2014-02-16 13:25:41
作　者:杜超-2号   ID：16058  城市：江阴
摘　要:有一网友提问到了这问题，故发此示例
正　文:

点击下载此附件

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

Then Exit Function
        Next Index
        AinB = True
    End If
End Function

Private Sub 比较_Click()
    If AinB(a, b) = True Then
        c = "包含"
    Else
        c = "不包含"
    End If
    DoCmd.RunCommand acCmdSaveRecord   '保存

End Sub