cxl.txt

来自「学生管理系统虽然不是很完善」· 文本 代码 · 共 12 行

Data1.Recordset.Bookmark = Data1.Recordset.LastModified

Dim Str As String
MsgBox "请输入查询条件", , "信息提示"
Str = Text2.Text
If Str = "" Then
MsgBox "请输入查询条件，如学生编号=2", , "信息提示"
Exit Sub
End If
Data1.Recordset.FindFirst Str
If Data1.Recordset.NoMatch Then
MsgBox "没有符合条件的记录", , "信息提示"