like 多条件代码书写求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → like 多条件代码书写求助

共有1680人关注过本帖树形打印复制链接主题：like 多条件代码书写求助

zsxx999	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	like 多条件代码书写求助 Post By：2017/6/29 9:27:00 [只看该作者] 用户已被锁定

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/29 9:41:00 [只看该作者]

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

zsxx999	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	Post By：2017/6/29 10:31:00 [只看该作者] 用户已被锁定

zsxx999	小大 4楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	Post By：2017/6/29 10:33:00 [只看该作者] 用户已被锁定

zsxx999	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	Post By：2017/6/29 10:35:00 [只看该作者] 用户已被锁定

有点色

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/29 11:05:00 [只看该作者]

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

尝试修改代码

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

下一主题 >> << 上一主题

主题：like 多条件代码书写求助