专家坐堂-[求助] filter跨表时的表达式Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] filter跨表时的表达式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152970)

--  作者：忆似水流年
--  发布时间：2020/7/27 15:47:00
--  [求助] filter跨表时的表达式

我在提醒窗口已经做了两个合同90天到期的链接
但第三个想要筛选出 vars("table3") 中类型为开除的身份证在 vars("table1") 或 vars("table2") 中状态为在岗的记录这个不知道怎么写了额
谢谢啦

Select Case e.link.name
    Case "员工合同"
        MainTable = Tables(vars("table1"))
        Tables(vars("table1")).filter = "现合同终止日期 <= #" & Date.Today.adddays(90) & "# and 状态 = \'在岗\'"
    Case "劳务工合同"
        MainTable = Tables(vars("table2"))
        Tables(vars("table2")).filter = "现合同终止日期 <= #" & Date.Today.adddays(90) & "# and 状态 = \'在岗\'"
    Case "辞退复用"
        MainTable = Tables(vars("Table3"))
        Tables(vars("table3")).filter =
End Select

此主题相关图片如下：奖惩表.jpg

此主题相关图片如下：提醒窗口.jpg

[此贴子已经被作者于2020/7/27 16:11:35编辑过]

--  作者：有点蓝
--  发布时间：2020/7/27 16:12:00
--
Select Case e.link.name
    Case "员工合同"
        MainTable = Tables(vars("table1"))
        Tables(vars("table1")).filter = "现合同终止日期 <= #" & Date.Today.adddays(90) & "# and 状态 = \'在岗\'"
    Case "劳务工合同"
        MainTable = Tables(vars("table2"))
        Tables(vars("table2")).filter = "现合同终止日期 <= #" & Date.Today.adddays(90) & "# and 状态 = \'在岗\'"
    Case "辞退复用"
dim s1 as string = Tables(vars("table1")).datatable.GetComboListString("身份证","状态 = \'在岗\'")
dim s2 as string = Tables(vars("table2")).datatable.GetComboListString("身份证","状态 = \'在岗\'")
        MainTable = Tables(vars("Table3"))
        Tables(vars("table3")).filter = "身份证 in (\'" & s1.replace("|","\',\'") & "\') or 身份证 in (\'" & s2.replace("|","\',\'") & "\')"
End Select

--  作者：忆似水流年
--  发布时间：2020/7/27 16:12:00
--
谢谢蓝大