假设你有两个窗体subform1,subform2
在subform1写上
Private Sub Form_Current()
On Error Resume Next
If Me.ActiveControl.Name = Me.Name Then
Me.Parent.subform2.Form.Recordset.Move (Me.CurrentRecord * 3 - 1 - Me.Parent.subform2.Form.CurrentRecord)
End If
End Sub
在subform2写上
Private Sub Form_Current()
On Error Resume Next
If Me.ActiveControl.Name = Me.Name Then
Me.Parent.subform1.Form.Recordset.Move ((Me.CurrentRecord + 1) / 3 - Me.Parent.subform1.Form.CurrentRecord)
End If
End Sub
这个例子是
Private Sub Form_Current()
On Error Resume Next
If Me.ActiveControl.Name = Me.Name Then
Me.Parent.subform1.Form.Recordset.Move ((Me.CurrentRecord + 1) / 3 - Me.Parent.subform1.Form.CurrentRecord)
End If
End Sub
这个例子是subform1,subform2记录比例为1:3的例子,要是1:1自己动下脑袋,呵呵,哪个直接的就不给你了。