新增文章

文章标题 分类 C# 云星空 K3 BOS K3 功能 用友 Oracle python SQL MySql PHP HTML script windows Access 影视后期 财务 服务 生活 内容 Me!Sub1.Form.Recordset.MoveNext Forms![220 单据管理]!Sub1.Form.Recordset.MoveNext MoveFirst ' 移动到 第一条记录 MoveNext ' 移动到 下一条记录 ---------------------------------------------------------------------------------------------------- ' 假设子窗体名为 ChildForm，需要定位的记录在字段 FieldName 中的值为 ValueToFind Dim subformControl As Form Dim subform As Form Dim rs As DAO.Recordset Set subformControl = Me!ChildForm Set subform = subformControl.Form Set rs = subform.RecordsetClone rs.MoveFirst ' 移动到第一条记录 Do While Not rs.EOF ' 循环直到找到匹配的记录或到达记录集的末尾 If rs!FieldName = ValueToFind Then ' 定位到子窗体中匹配的记录 subformControl.SetFocus subform.Bookmark = rs.Bookmark Exit Do End If rs.MoveNext Loop ' 清理 rs.Close Set rs = Nothing Set subform = Nothing Set subformControl = Nothing 返回 保存