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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请教一段子表条件获取代码

共有1737人关注过本帖树形打印复制链接主题：[求助]请教一段子表条件获取代码

l1q2lq

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

等级：一尾狐帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00

[求助]请教一段子表条件获取代码 发帖心情

Post By：2017/5/27 11:31:00 [显示全部帖子]

关联两个父表和子表，

对于关联行，若子表的条件列每一行都不为空，则父表结果列=OK，若每一行都为空，父表结果列=NO，若不全为空，父表结果列=NONO

For Each d As Row In Tables(父表").Rows

Dim t As Date = d("结果")

For Each r As Row In Tables(子表").Rows

Dim p As Date = r("条件")

If p ？？？？？？？？？？？？？

t = “OK”

[此贴子已经被作者于2017/5/27 11:31:48编辑过]

l1q2lq

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

等级：一尾狐帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00

Post By：2017/5/27 13:20:00 [显示全部帖子]

老师，代码有点问题，我再描述一下

关联两个父表和子表，关联的列名称为"零件信息"

对于关联行，

若子表的"条件"列每一行都有内容，则父表"结果"列=OK，

若子表的"条件"列每一行都没有内容，则父表"结果"列=NO，

若子表的"条件"列只有部分行有内容，则父表"结果"列=NONO

[此贴子已经被作者于2017/5/27 13:23:44编辑过]

l1q2lq

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

等级：一尾狐帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00

Post By：2017/5/27 15:00:00 [显示全部帖子]

请教一下

主题：[求助]请教一段子表条件获取代码