以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多条件加载  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128983)
--  作者：y2287958
--  发布时间：2018/12/19 14:07:00
--  
DataTables("管理层杂工明细").LoadFilter = "姓名 In (" & ids & ") and 工作日期 ……"
--  作者：有点甜
--  发布时间：2018/12/19 14:18:00
--  
If DataTables("管理层杂工总表").DataRows.Count = 0 Then \'如果订单表没有数据
    DataTables("管理层杂工明细").LoadFilter = "姓名 Is Null" \'不加载订单明细
Else
    Dim ids As String
    Dim flt As String = "1=2"
    For Each dr As DataRow In DataTables("管理层杂工总表").DataRows
        ids = ids & ",\'" & dr("姓名") &  "\'"
        flt &= " or 工作日期=#" & dr("工作日期") & "#"
    Next
    ids= ids.Trim(",")
    DataTables("管理层杂工明细").LoadFilter = "姓名 In (" & ids & ") and (" & flt & ")"
End If
DataTables("管理层杂工明细").Load()
--  作者：有点甜
--  发布时间：2018/12/19 16:37:00
--  

1、你确定你下面这个表是关联表？而不是子表？

 

2、你可以在currentchanged事件，写入筛选代码 http://www.foxtable.com/webhelp/scr/2222.htm