看看究竟是哪里的错阿！！

[windysound]

Dim s As String
Dim b As String
s = Data1.Recordset.Bookmark
Data1.Recordset.Index = "学号"
Data1.Recordset.Seek "=", Text1.Text
b = Data1.Recordset.Bookmark
If Data1.Recordset.NoMatch Then
Data1.Recordset.Bookmark = s
Else
Data1.Recordset.Bookmark = b
End If

[txlicenhe]

Bookmark 返回值类型好象不是字符串吧？

[guoyx]

Bookmark的确返回类型不对！！把s \b定义成Variant

[strongfisher]

Dim s As Variant
Dim b As Variant

[windysound]

bookmark是可以为字符串的，错好像在index上，不知道怎么用，谁来教教我！！！

[danielpan]

你在表的"学号"字段作了索引吗??

[truetown]

Dim s As String
Dim b As String
s = Data1.Recordset.Bookmark
Data1.Recordset.Index = "学号"
Data1.Recordset.Seek "=", Text1.Text
b = Data1.Recordset.Bookmark
If Data1.Recordset.NoMatch Then
Data1.Recordset.Bookmark = s
Else
Data1.Recordset.Bookmark = b
End If

呵呵，我是菜鸟，谁能给俺解释解释这段程序是什么意思啊~``````

[danielpan]

应该是查找表中学号等于你输入的值的记录吧.

如果找到,则将书签设为找到的那一行,否则将书签设为查找之前的当前行.