Dim ary1() As String = {"镇1", "镇2"}
Dim ary2() As String = {"村1", "村2", "村3"}
Dim flag As Boolean = True
For Each s As String In ary1
    If dr("住址镇") Like "*" & s & "*" = False Then
        flag = False
        Exit For
    End If
Next
For Each s As String In ary2
    If dr("责任村") Like "*" & s & "*" = False Then
        flag = False
        Exit For
    End If
Next
If flag = True Then
    dr("责任校")= "校1"
End If

请正确上传项目，没看到你的例子。

尝试修改代码

Dim ary1() As String = {"镇1", "镇2"}
Dim ary2() As String = {"村1", "村2", "村3"}
Dim flag1 As Boolean = False
For Each s As String In ary1
    If dr("住址镇") Like "*" & s & "*"  Then
        flag1 = True
        Exit For
    End If
Next
Dim flag2 As Boolean = False
For Each s As String In ary2
    If dr("责任村") Like "*" & s & "*" Then
        flag2 = True
        Exit For
    End If
Next
If flag1 = True AndAlso flag2 = True Then
    dr("责任校")= "校1"
End If