主题：[求助]查询按钮代码

Dim xh As String = e.Form.Controls("TextBox1").Text
Tables("班级成绩表").Filter = "姓名 like '%" & xh & "%' or Convert(学号, 'System.String') like '%" & xh & "%'"

此主题相关图片如下：捕获wwww.png

Dim xh As String = e.Form.Controls("TextBox1").Text
Tables("班级成绩表").Filter = "姓名 like '%" & xh & "%' or Convert(学号, 'System.String') like '%" & xh & "%'"

有点色第二次代码还不能正常查询，出错

Dim xh As String = e.Form.Controls("TextBox1").Text Tables("班级成绩表").Filter = "姓名 like '%" & xh & "%' or Convert(学号, 'System.String') like '%" & xh & "%'" 这个对了

谢谢谢谢

若再加个取消查询按钮，代码咋写？

 

Tables("班级成绩表").Filter = ""

 

或者

 

Tables("班级成绩表").Filter = "1=2"

单击取消按钮，取消查到的内容外，TextBox1输入的内容也应该清除掉，咋写代码？

 

方法一：你不要绑定表，改成赋值的方式。

 

Dim xh As WinForm.TextBox = e.Forms.Controls("TextBox1")
Dim dr As DataRow = DataTables("班级成绩表").Find("姓名 like '%" & xh & "%' or Convert(学号, 'System.String') like '%" & xh & "%'")
Dim xm As WinForm.TextBox = e.Forms.Controls("TextBox5")
Dim bj As WinForm.TextBox = e.Forms.Controls("TextBox4")
xm.Value = dr("姓名")
bj.Value = dr("班级")

 

取消的时候，把值赋值为空白

 

Dim xm As WinForm.TextBox = e.Forms.Controls("TextBox5")
Dim bj As WinForm.TextBox = e.Forms.Controls("TextBox4")
xm.Value = Nothing
bj.Value = nothing 

 

 

 

方法二：这样写

 

Tables("班级成绩表").Filter = "1=2"