Office中国论坛/Access中国论坛

标题: 在窗体中划线显示子窗体表格式代码参数问题求解，代码如下。。 [打印本页]

---

作者: YXH_YXH    时间: 2024-1-24 20:26
标题: 在窗体中划线显示子窗体表格式代码参数问题求解，代码如下。。
窗体代码为：
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


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

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3