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
加好友 
发短信
Post By：2017/5/24 22:01:00 [只看该作者]
