Dim txt As String = e.Form.Controls("TxtFind").Text
Dim cx As WinForm.TextBox = e.Form.Controls("TxtFind")
Dim tbl As Table = Tables("题库查询_Table1")
If cx.text<>"输入汉字或拼音首字母进行查询" Then
If txt = "" Then
tbl.Filter = ""
Else
txt = "'%" & txt & "%'"
tbl.DataTable.loadFilter ="题干 Like " & txt & " Or 题干首字母 Like " & txt & " Or 答案首字母 Like " & txt & _
" Or 答案 Like " & txt
tbl.DataTable.Load(加载[题库]失败)请问是什么原因,谢谢!
End If
End If
e.Form.Controls("LblCxjg").text="共 " & tbl.Rows.Count & " 条记录!"