以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  无法按条件进行筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143816)
--  作者：蓝蚂蚁
--  发布时间：2019/12/5 10:02:00
--  无法按条件进行筛选
在科室计划汇总表主窗口_Table1表中双击第一列，弹出独立窗口，下面是弹出独立窗口时AfterLoad代码。
If Forms("科室计划汇总表主窗口").opened()
    If Tables("科室计划汇总表主窗口_Table1").Current IsNot Nothing AndAlso Tables("科室计划汇总表主窗口_Table1").Current.Index > 0 Then
        e.Form.controls("Table1").Table.ExtendLastCol = True        
        Dim s As String=Tables("科室计划汇总表主窗口_Table1").Current("字典编码")
        e.Form.controls("Table1").Table.filter ="字典编码=\'"& s  &"\'"
    End If
End If
问题：当“科室计划汇总表主窗口_Table1”表没有进行筛选时，弹出的独立窗口能筛选处理当前的字典编码，但当“科室计划汇总表主窗口_Table1”表是筛选后的数据后，双击第一列其弹出的独立窗口弹出时就不是显示就不是当前的字典编码了，而是显示所有的字典编码？何解？
--  作者：有点蓝
--  发布时间：2019/12/5 10:27:00
--  
看不出什么问题，上传实例看看