以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期只显示年月  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108370)

--  作者:hebxtshhyj
--  发布时间:2017/10/21 8:48:00
--  日期只显示年月
我有2个表,一个汇总表,一个明细记录表,我想在汇总表输入年月后,在关联的明细表筛选出符合条件的所有记录。
--  作者:有点蓝
--  发布时间:2017/10/21 9:10:00
--  
1、按年月进行关联即可

2、参考:
http://www.foxtable.com/webhelp/scr/2222.htm,2个表不能设置为关联表

汇总表,currentchanged事件
Dim t As Table = Tables("明细记录表")
With Tables("汇总表")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "年月 = \'" & .Current("年月") & "\'"
    End If
End With

汇总表,datacolchanged事件
Select Case e.DataCol.Name
    Case "年月"
        Dim t As Table = Tables("明细记录表")
        If e.DataRow.Isnull("年月") Then
            t.Filter = "False"
        Else
            t.Filter = "年月 = \'" & e.NewValue & "\'"
        End If
End Select

--  作者:hebxtshhyj
--  发布时间:2017/10/21 11:03:00
--  

汇总表日期是期间,只有年月(是不是只能是字符型?),明细表日期是年月日,每一日下面有多个记录,若按日期关联可以看到某一天的记录,按照日期关联不是我需要的结果。我现在想按月把某人的记录汇总,就是我录入某年某月某人,自动查找对应的记录。不知道我的表述清楚了没有。


--  作者:有点蓝
--  发布时间:2017/10/21 11:20:00
--  
数据不一致,参考这种用法http://www.foxtable.com/webhelp/scr/2720.htm