Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 如何满足多个条件才执行


  共有2523人关注过本帖树形打印复制链接

主题：[求助] 如何满足多个条件才执行
帅哥哟，离线，有人找我吗？
81538475
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1304 积分：10540 威望：0 精华：1 注册：2018/1/20 12:40:00 		[求助] 如何满足多个条件才执行  发帖心情 Post By：2018/6/14 0:30:00 [显示全部帖子]

下面的代码会找出多个 dr 如何能够让所有 dr("PM") = _username 都满足才往下执行呢。



  Dim dr As DataRow
        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
 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1304 积分：10540 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2018/6/14 15:13:00 [显示全部帖子]

问题是我后面的代码也需要用到 上面 循环出来的 dr 的多个值 。按照上面代码的话，就无法进行后面的循环了。 标注红色的位置：
        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
                    If nt IsNot Nothing Then
                        nt.Delete
                    End If
                    MessageBox.Show("没有权限合并此项目,请联系相关PM!","温馨提示:")
                    Exit For
                End If
            End If
        Next
        If flag = False Then
            If dr.GetChildRows("XMFP") IsNot Nothing Then
                For Each drc As DataRow In dr.GetChildRows("XMFP")   '修改编号
                    If drc IsNot Nothing Then
                        drc("BH") = nt("bh")
                    End If
                Next
            End If

          
        End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询