Dim txt As String = e.Form.Controls("TextBox1").Text Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox1") Dim tbl As Table = Tables("学生档案") If chk.checked Then If txt = "" Then tbl.Filter = "" Else txt = "'%" & txt & "%'" tbl.Filter ="'姓名 Like " & txt & " And 在校= True" End If Else If txt = "" Then tbl.Filter = "" Else txt = "'%" & txt & "%'" tbl.Filter ="'姓名 Like " & txt & " And 在校= False" End If End If
|