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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请教一段子表条件获取代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101257)

--  作者：l1q2lq
--  发布时间：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编辑过]

--  作者：有点蓝
--  发布时间：2017/5/27 12:03:00
--

For Each d As Row In Tables(父表").Rows
If d.DataRow.GetChildRows("子表").Count = 0 Then
d("结果") = "NONO"
Else
If DataTables(子表").Find("编号=\'" & d("编号") & "\' and 条件 is null") IsNot Nothing
d("结果") = "NO"
Else
d("结果") = "OK"
End If
End If
Next

--  作者：l1q2lq
--  发布时间：2017/5/27 13:20:00
--
老师，代码有点问题，我再描述一下

关联两个父表和子表，关联的列名称为"零件信息"
对于关联行，
若子表的"条件"列每一行都有内容，则父表"结果"列=OK，
若子表的"条件"列每一行都没有内容，则父表"结果"列=NO，
若子表的"条件"列只有部分行有内容，则父表"结果"列=NONO

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

--  作者：l1q2lq
--  发布时间：2017/5/27 15:00:00
--
请教一下

--  作者：有点蓝
--  发布时间：2017/5/27 16:12:00
--

For Each d As Row In Tables(父表").Rows
Dim count As Integer = d.DataRow.GetChildRows("子表").Count
If count = 0 Then
d("结果") = "NO"
Else
Dim count2 As Integer = DataTables(子表").Compute("count(编号)","编号=\'" & d("编号") & "\' and 条件 is null")
If count2 = 0
d("结果") = "OK"
ElseIf count2 < count
d("结果") = "NONO"
Else
d("结果") = "NO"
End If
End If
Next