在窗体中划线显示子窗体表格式代码参数问题求解，代码如下。。

YXH_YXH

窗体代码为：
Private Sub Form_Current()

Dim frm As Form, intRC As Integer
'Dim intRC As Integer

    Set frm = [Form_费用报销单明细]
With frm
   intRC = .RecordsetClone.RecordCount
    If intRC < 4 Then
    .Form.InsideHeight = 1038 + 519 * intRC
    Else
    .Form.InsideHeight = 2545
    End If


End With
End Sub

子窗体代码为：
Option Compare Database
Option Explicit
Dim intRC As Integer
Private Sub Form_AfterInsert()
   intRC = Me.RecordsetClone.RecordCount
    If intRC < 4 Then
    InsideHeight = 1038 + 519 * intRC
    Else
    InsideHeight = 2595
    End If

End Sub
Private Sub Form_Current()
   intRC = Me.RecordsetClone.RecordCount
    If intRC < 4 Then
    InsideHeight = 1038 + 519 * intRC
    Else
    InsideHeight = 2595
    End If

End Sub


问题是：当我修改其数据时窗体与子窗体显示会不同步。请指出其参数使用如何同步。