Dim t As Table = Tables("窗口1_Table1")
With Tables("产品")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "产品编号 = " & .Current("产品编号")
    End IF
End With

此段代码确保打开窗口后，Tables("窗口1_Table1")只显示当前选定产品的订单。

---------------------------我是分割线----------------------------------

此段中

 t.Filter = "产品编号 = " & .Current("产品编号")应改为

 t.Filter = "产品编号 = \'" & .Current("产品编号") & "\'"
原因详见帮助中“动态合成表达式”章节。

同理步骤中的5也有相同错误。