主题：在用导航栏进行主表切换并筛选时提示错误是什么意思？

Dim t As Table = Tables("项目进展情况_Table1")
With Tables("项目管理")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "项目名称 = '" & .Current("项目名称") & "'"
    End If
End With

  将项目进展情况 窗口事件的代码改一下.