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

[求助]查询按钮代码咋写？求大师

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

有点色大师在吗

顶

Dim str As String = e.Form.Controls("TextBox1").Text

Dim idx As Integer = Tables("班级成绩表").FindRow("姓名 like '%" & str & "%' or 学好 like '%" & str & "%'")

If idx > -1 Then

    Tables("班级成绩表").Position = idx

End If

谢

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

Dim xh As WinForm.TextBox = e.Forms.Controls("TextBox1")
DataTables("班级成绩表").LoadFilter = "学号 = '" & xh.Value & "'"
DataTables("班级成绩表").LoadTop = 1
DataTables("班级成绩表").Load
Tables("班级成绩表").Filter = "学号 = '" & xh.Value & "'"

也可以这样:

Dim xh As WinForm.TextBox = e.Forms.Controls("TextBox1")
Dim dr As DataRow = DataTables("班级成绩表").Find("学号 = '" & xh.Value & "'")
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 xh As String = e.Form.Controls("TextBox1").Text
Tables("班级成绩表").Filter = "姓名 like '%" & xh & "%' or Convert(学号, 'System.String') like '%" & xh & "%'"

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