recordset中find方法的问题
窗体(下称窗体1)内有如下的控件:
文本框TName1:用于输入要姓名
按钮CSearch:"查询",点击该按钮开始查询
datadrid:显示找到的记录
adodc1:
按钮CModify:”修改",点击后进入另一个窗体(下称窗体2),修改职员的信息
现在的问题是我在窗体1内,按要求输入名字后,在datadrid中显示了相应的记录
但是我按下CModify按钮后,窗体2内显示的内容始终是adodc1中的第一个职员的记录信息
我看到参考书上说,用find方法可以使记录集的位置设置在找到的记录上,为什么我这样做结果还是不对呢?
附部分代码:
Private Sub CModify_Click()
Dim Num1 As String
Dim temp As String
Num1 = Adodc1.Recordset.Fields("身份证号")
Debug.Print Num1
Adodc1.Recordset.MoveFirst
temp = "身份证号='" & Num1 & "'"
Debug.Print temp //从立即窗口可以看到是要找的相应的职员
Adodc1.Refresh
Adodc1.Recordset.Find (temp)
frmCertificateManage.Show vbModal //显示窗体2
End Sub