主题：[求助] 如何满足多个条件才执行

Dim dr As DataRow
Dim flag = False
For i As Integer = 0 To Names.Length -1
    dr = DataTables("XMZB").Find("[XMMC] = '"& names(i) & "'")    
    If dr IsNot Nothing Then
        If dr("PM") <> _username Then
            flag = True
            Exit For
        End If
    End If
Next