主题：关于筛选的问题

Dim Filter As String
Dim tbl As Table = e.Form.Controls("Table2").Table

With e.Form.Controls("GuobuGuo")
    If .text <> Nothing Then
        If .text  = "未过期"
            Filter = "到期提醒 = '新办' or 到期提醒 = '续费'"
        ElseIf .text  = "已过期"
            Filter = "到期提醒 = '退租'"
        End If
    End If
End With