定位问题？

fxtest

各位高手帮一下，

　　　打开窗体１双击窗体１子窗体的第二记录，打开窗体２会移到第二记录，这样效果怎样能达到．

wuaza

下一个示例使用 RecordsetClone 属性和 Recordset 对象来实现记录集内的记录和窗体当前记录的同步。当从组合框中选择公司名称时，使用 FindFirst 方法来定位该公司的记录，同时 Recordset 对象的 DAO Bookmark 属性将分配给该窗体的 Bookmark 属性，使窗体显示找到的记录。

1. Sub SupplierID_AfterUpdate()
   
   
2.     Dim rst As Recordset
   
   
3.     Dim strSearchName As String
   
   
4. 
   
   
5.     Set rst = Me.[b]RecordsetClone[/b]
   
   
6.     strSearchName = Str(Me!SupplierID)
   
   
7.     rst.FindFirst "SupplierID = " & strSearchName
   
   
8.         If rst.NoMatch Then
   
   
9.             MsgBox "Record not found"
   
   
10.         Else
    
    
11.             Me.Bookmark = rst.Bookmark
    
    
12.         End If
    
    
13.     rst.Close
    
    
14. End Sub

复制代码

1. <SCRIPT language=JScript src="../links/ofvbanl.js">
   
   </script>

复制代码

fxtest

多谢！！

fxtest

能否帮我写个例子？