以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关联表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117816)
--  作者：有点甜
--  发布时间：2018/4/19 14:37:00
--  

参考 http://www.foxtable.com/webhelp/scr/0094.htm

 
--  作者：有点甜
--  发布时间：2018/4/19 15:40:00
--  

If DataTables("项目节点明细").DataRows.Count = 0 Then \'如果订单表没有数据
    DataTables("工作记录评价表").LoadFilter = "项目代号 Is Null and 节点代号=\'123\'" \'不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("项目节点明细").DataRows
        ids = ids & ",\'" & dr("事件标题") &  "\'"
    Next
    ids= ids.Trim(",")
    DataTables("工作记录评价表").LoadFilter = "项目代号 In (" & ids & ")  and 节点代号=\'123\'"
End If
DataTables("工作记录评价表").Load()
--  作者：有点甜
--  发布时间：2018/4/19 15:42:00
--  

If DataTables("项目节点明细").DataRows.Count = 0 Then \'如果订单表没有数据
    DataTables("工作记录评价表").LoadFilter = "项目代号 Is Null" \'不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("项目节点明细").DataRows
        ids = ids & ",\'" & dr("事件标题") & dr("节点代号") &  "\'"
    Next
    ids= ids.Trim(",")
    DataTables("工作记录评价表").LoadFilter = "项目代号+节点代号 In (" & ids & ")"
End If
DataTables("工作记录评价表").Load()