Question

高分求助VB高手有关data控件的问题---回答好的话另有加分！！

Data1.Refresh

Dim findstu_id As String

findstu_id = Text1(0).Text

If findstu_id <> "" Then
findstu_id = "stu_id= '" & findstu_id & "'"
Data1.Recordset.FindFirst (findstu_id)
If Data1.Recordset.NoMatch Then
MsgBox ("success")

Else
MsgBox ("此学号已被添加，请您确认后填写")
End If

End If

我发现我不管输入什么，都是("此学号已被添加，请您确认后填写")

怎么回事啊？
text1(0)的datafield是数据库的stu_id

我是想在单击保存按钮的时候，先查找数据库里有没有相同学号的人

Answer 1

我的代码片段，执行查询 后结果正确输出
Do While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("Name") = Trim(Text1.Text) Then
FindUser = True
If Adodc1.Recordset.Fields("Npassword") = Trim(Text2.Text) Then
Me.Hide
frmMain.Show
strUser = Trim(Text1.Text)
Unload Me
Exit Sub
Else
MsgBox "请重新输入用户密码！", vbOKOnly + vbExclamation, "警告"
Text2.Text = ""
Text2.SetFocus
Exit Sub
End If
End If
Adodc1.Recordset.MoveNext
Loop

If FindUser = False Then
MsgBox "没有这个用户，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Sub

Answer 2

Data1.Recordset.FindFirst (findstu_id)
改成
Data1.Recordset.Find(findstu_id)
试试看！~