Dim j As Integerj = 子窗体名称.Form.CurrentRecord....Me![子窗体名称].SetFocusDoCmd.GoToRecord , , acGoTo, j即先记录当前记录号,刷新后再跳回记录的记录号!