For Each dr As DataRow In DataTables("移动类型").Select("[移动文本] <> '" & str & "'") '根据str的值找到对应的行
那你到底想做什么?要不你就在这里比较
If fdr IsNot Nothing and 其它条件 Then ''如果找到行,