子窗体中的数据录入在窗体中形成一人Excel表格式的形态出现问题，如何应用其数据...

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


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

YXH_YXH

是一样的，只是参数调整到0.899的高度而已。

灰太郎

我发的图片，你最新的文件发出来

YXH_YXH

你发的图还是文件？没法下载。之前说你图片1显示不正常，你删除图片2中4、5条数据看看怎样!

灰太郎

这个也没有

灰太郎

这个也没有

灰太郎

你的图和我的图不一样，发个最新的

YXH_YXH

看到你上的二图片，第一张图片的正常显示是不正常的，第二张图片不确定。问题应出自窗体与子窗体间的高度不协调吧。我觉得我发的代码没有问题，是显示问题。

YXH_YXH

灰太郎 发表于 2024-1-28 13:51
改后的部分效果图，需完善

你好！搞了好一阵子还是有问题。不知道什么原因，估计文件或数据出现问题，出现连接不上。如DAO的加载失败。完整图是这样的，就是一个表格式的。我觉得我发你的代码没有问题，是显示问题。视图中的行距是0.899CM的，你看看问题存在那。谢谢！！

灰太郎

YXH_YXH，人、你完整的程序发出来，我完善好后发出来源码