标题：CurrentChanged

If Forms ("过程记录").opened Then
Dim t01 As Table = Tables("生产管理_Table01")
Dim t10 As Table = Tables("过程记录_Table10")
If t01.Current IsNot Nothing Then
    t10.Filter = "任务单编号 = '" & t01.Current("任务单编号") & "'"
Else
     t10.Filter = "false"
End If
End If

为什么不能筛选？

调试没反应，没有出现信息提示

实际窗口是打开的

这样也不行

全部代码如下：

If e.Table.Current IsNot Nothing Then
    Tables("任务单").Cols("模具开模申请单").Visible = False
    Tables("任务单").Cols("技术图纸").Visible = False
    Tables("任务单").Cols("任务说明").Visible = False
    Tables("任务单").Cols("过程记录").Visible = False
    e.Table.AutoSizeRow(e.Table.Current.Index)
    Tables("任务单").Cols("模具开模申请单").Visible = True
    Tables("任务单").Cols("技术图纸").Visible = True
    Tables("任务单").Cols("任务说明").Visible = True
    Tables("任务单").Cols("过程记录").Visible = True
End If

Dim t As Table = Tables("项目阶段")
If e.Table.Current IsNot Nothing Then
    t.Filter = "任务单编号 = '" & e.Table.Current("任务单编号") & "'"
Else
   t.Filter = "false"
End If

If Forms ("过程记录").opened Then

msgbox(1)
Dim t01 As Table = Tables("生产管理_Table01")
Dim t10 As Table = Tables("过程记录_Table10")
If t01.Current IsNot Nothing Then
    t10.Filter = "任务单编号 = '" & t01.Current("任务单编号") & "'"
Else
     t10.Filter = "false"
End If
msgbox(t10.Filter)
End If

还是毫无反应