主题：模拟关联表出错

1、试试

systemready = False
Dim t As Table = Tables("项目信息台账_Table2")
With Tables("项目信息台账_Table1")
    If .Current IsNot Nothing Then
        t.Filter = "项目编号 = '" & .Current("项目编号") & "'"
    Else
        t.Filter = "False"
    End If
End With
systemready = True

2、如果还有问题，那就是表格其余事件有问题导致的，比如 currentChanged 等，分别注释后测试。