以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  老师帮忙加个循环执行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131914)
--  作者：18504175995
--  发布时间：2019/3/9 9:22:00
--  老师帮忙加个循环执行
对账环节，A表账目核对无误列勾选后，在B表中查找复核条件的所有行，同时对这些行勾选“封账”列，因为是一对多的关系，所以需要个循环语句，但是本人菜鸟不太会写
目前写成如下代码，只能执行查到的第一行，麻烦老师指点一下要怎么能对查到的所有行都执行，谢谢啦！
Select Case e.DataCol.name
    Case "海运费核对无误"
        Dim zy As DataRow=e.DataRow
        Dim pz As DataRow
        pz = DataTables("海运发运明细").find("运单号=\'" & zy("提单号") & "\'")
            If pz IsNot Nothing
                If zy("海运费核对无误")=True Then
                    pz("应付船公司_封账")= True
                Else
                    pz("应付船公司_封账")= Nothing
                End If
            End If
End Select
--  作者：有点蓝
--  发布时间：2019/3/9 9:40:00
--  
Select Case e.DataCol.name
    Case "海运费核对无误"
        Dim zy As DataRow=e.DataRow
        Dim pz As DataRow
        For Each pz In DataTables("海运发运明细").Select("运单号=\'" & zy("提单号") & "\'")
            pz("应付船公司_封账")= zy("海运费核对无误")
        Next
End Select
--  作者：18504175995
--  发布时间：2019/3/9 9:49:00
--  
非常感谢有点蓝老师，问题解决了，以后再遇上这样的问题终于知道改咋办了，简单明了没毛病，哈哈哈