Foxtable(狐表)用户栏目专家坐堂 → [求助]关于集合的问题


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

主题:[求助]关于集合的问题

帅哥哟,离线,有人找我吗?
cool314156
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:374 积分:3277 威望:0 精华:0 注册:2018/1/12 10:54:00
[求助]关于集合的问题  发帖心情 Post By:2018/2/8 11:12:00 [只看该作者]

Select Case e.DataCol.name
    Case "订单编号"
Dim drs As New List(Of String)
 Dim dr As DataRow = DataTables("采购订单").Find("订单编号 = '" & e.OldValue & "'")

'drs=  DataTables("入库").Find("订单编号 = '" & e.OldValue & "'")
        'Dim dr As  DataRow =
        If dr IsNot Nothing Then 
           'drs = DataTables("").DataRows(0).GetChildRows("订单")

            dr("订单编号") = e.DataRow("订单编号")
        End If
Dim drs As DataRow = DataTables("入库").Find("订单编号 = '" & e.DataRow("订单编号") & "'")
If drs("是否执行") = True Then
dr("是否执行") = True
Else
dr("是否执行") = False
End If
End Select

想问下老师,我错在哪里了
我的设想是,入库里面有好几行的订单编号是同样的 和 采购订单里的 唯一的订单编号是一致的,采购订单和入库已经做了关联了,入库里面的订单编号是同样的行,所对应的是否执行这个逻辑列,都是“是”,那么采购订单的 是否执行的逻辑列 就会变成“是”

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/8 11:36:00 [只看该作者]

Select Case e.DataCol.name
    Case "是否执行"
        Dim dr As DataRow = DataTables("采购订单").Find("订单编号 = '" & e.DataRow("订单编号") & "'")
       
        If dr IsNot Nothing Then
            Dim drs = DataTables("入库").Select("订单编号 = '" & e.DataRow("订单编号") & "'")
            Dim flag As Boolean = True
            For Each r As DataRow In drs
                If r("是否执行") = False Then
                    flag = False
                    Exit For
                End If
            Next
            dr("是否执行") = flag
        end if
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
cool314156
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:374 积分:3277 威望:0 精华:0 注册:2018/1/12 10:54:00
  发帖心情 Post By:2018/2/8 12:18:00 [只看该作者]

谢谢老师了

 回到顶部