If Tables("打印审批表_Table1").current("采购申报表打印") = False Then Dim txt As String = e.Form.Controls("ComboBox1").Text Dim tbl As Table = Tables("打印审批表_Table1") If txt = "" Then tbl.Filter = "" Else txt = "'%" & txt & "%'" tbl.Filter = "采购方式 Like " & txt & " And 采购申报表打印=False " End If End If