我做项目管理，在设计软件时，用导航栏进行主表切换并自动选择和“项目名称”相关的“项目进展情况”，但是在首次点击导航栏中的“项目管理”时出现如下错误提示（图一）
此主题相关图片如下：图一.jpg

你的代码问题，错误的意思是，表中不存在名为“超级洗肠液”的列。

代码我仔细检查过，我将我的文件上传，请狐爸给看看。

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

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

多谢“blackzhu”的帮助，问题解决了，但是还是不太明白。我还有两个表“档案管理”“档案借阅日志”，其做法和上面的一模一样，在窗口的afterload事件代码：

Dim t As Table = Tables("档案借阅日志")
With Tables("档案管理")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "档案名称 = " & .Current("档案名称")

    End If
End With

这样运行没有问题，可以顺利运行，所不同的是，窗口中的table控件绑定的“档案借阅日志”表的“作为副本”属性为“false”。