Dim t As Table = Tables("测试_Table4")
With Tables("实际付款") If .Current Is Nothing Then t.Filter = "False" Else t.Filter = "付款时间 = " & .Current("付款时间") End IfEnd Witht.OpenView("default")