老师帮忙加个循环执行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老师帮忙加个循环执行

共有2523人关注过本帖树形打印复制链接主题：老师帮忙加个循环执行

18504175995

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

等级：幼狐帖子：144 积分：1336 威望：0 精华：0 注册：2018/5/10 10:29:00

老师帮忙加个循环执行 发帖心情

Post By：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 Select

有点蓝

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

等级：超级版主帖子：110743 积分：563641 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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("海运费核对无误")

End Select

18504175995

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

等级：幼狐帖子：144 积分：1336 威望：0 精华：0 注册：2018/5/10 10:29:00

Post By：2019/3/9 9:49:00 [只看该作者]

非常感谢有点蓝老师，问题解决了，以后再遇上这样的问题终于知道改咋办了，简单明了没毛病，哈哈哈

主题：老师帮忙加个循环执行