Dim old As Long
old = Me.Child15.Form.CurrentRecord '获得当前所在行
Me.Child15.Form.Refresh
Me.Child15.SetFocus
DoCmd.GoToRecord , , acGoTo, old '重先定位到之前所在行
Dim old As Long
old = Me.Child15.Form.CurrentRecord '获得当前所在行
Me.Child15.Form.Refresh
Me.Child15.SetFocus
DoCmd.GoToRecord , , acGoTo, old '重先定位到之前所在行