主题：[求助]报表

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

我加了个代码

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

        t.Filter = "入院日期 =  & ".Current("入院日期")
    End IF
End With

结果出现
此主题相关图片如下：4.png

不知为何？