修改红色代码
Dim t As Table = Tables("窗口1_Table1")With Tables("产品") If .Current Is Nothing Then t.Filter = "False" Else t.Filter = "产品编号 = \'" & .Current("产品编号") & "\'" End IfEnd With