在科室计划汇总表主窗口_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”表是筛选后的数据后,双击第一列其弹出的独立窗口弹出时就不是显示就不是当前的字典编码了,而是显示所有的字典编码?何解?