recordset中find方法的问题

windbell0102 2007-11-29 01:55:35
窗体(下称窗体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

...全文
210 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
windbell0102 2007-12-03
  • 打赏
  • 举报
回复
//窗体2的部分代码
Private Sub Form_Load()
//希望在这里显示窗体1中找到的记录的信息,但是现在一直显示第一条记录的信息
TName2.Text = Trim(frmCertificateQuery.Adodc1.Recordset.Fields("姓名"))
TDepartment2.Text = Trim(frmCertificateQuery.Adodc1.Recordset.Fields("部门"))
TPosition2.Text = Trim(frmCertificateQuery.Adodc1.Recordset.Fields("岗位"))
.....
.....
End Sub

of123 2007-12-03
  • 打赏
  • 举报
回复
窗体 2 的代码呢?
windbell0102 2007-12-03
  • 打赏
  • 举报
回复
顶~~~
windbell0102 2007-12-01
  • 打赏
  • 举报
回复
自己顶顶,高手帮忙看看吧,谢谢了啊
windbell0102 2007-11-30
  • 打赏
  • 举报
回复
我是想把窗体1的内容放到窗体2中修改
因为我刚刚学习VB,所以还希望各位高人帮忙看看到底要怎么处理,谢谢了
qylisten 2007-11-30
  • 打赏
  • 举报
回复
窗体1 和 窗体2 中的数据来源一定要同步,不是简单的使用同一个来源就是自动同步的。你会不会是原来搞好这一个关系?
简单来说就是使用两个不同的数据控件,即使你将它们的来源指向同一个数据文件(表),你用其中一个数据控件表更改了数据的内容,另一个控件并不会同步显示这种结果的。
Tiger_Zhao 2007-11-30
  • 打赏
  • 举报
回复
frmCertificateManage的数据哪里来?
chyvlcy123 2007-11-30
  • 打赏
  • 举报
回复
你是不是想把1的查询内容放到2里再修改

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧