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

灰太郎

文件发出来

灰太郎

你发的文件没有如上图，少发一个1，重发下

灰太郎

主窗体
Private Sub Form_Current()
Dim frm As Form, intRC As Integer
Me.Label145.Top = Me.费用报销单明细.Top + Me.费用报销单明细.Height
Set frm = [Form_费用报销单明细]
With frm
   intRC = .RecordsetClone.RecordCount
   If intRC <= 4 Then
    Me.Label145.Top = 2830
    Else
    Me.Label145.Top = Me.费用报销单明细.Top + Me.费用报销单明细.Height
    End If
   End With
End Sub
子窗体
Private Sub Form_AfterInsert()
   intRC = Me.RecordsetClone.RecordCount
    If intRC <= 4 Then
     Me.Parent!费用报销单明细.Height = 730 + 300 * (intRC + 1)
     Me.Parent!Label145.Top = Me.Parent!费用报销单明细.Top + Me.Parent!费用报销单明细.Height
    Else
   Me.Parent!费用报销单明细.Height = 3470
   Me.Parent!Label145.Top = Me.Parent!费用报销单明细.Top + Me.Parent!费用报销单明细.Height
    '1641
    End If
End Sub
Private Sub Form_Current()                      'InsideHeight = 1544 这是调整子窗体高度的参数
   intRC = Me.RecordsetClone.RecordCount
    If intRC <= 4 Then
     Me.Parent!费用报销单明细.Height = 730 + 300 * (intRC + 1)
     Me.Parent!Label145.Top = Me.Parent!费用报销单明细.Top + Me.Parent!费用报销单明细.Height
    Else
    Me.Parent!费用报销单明细.Height = 3470  '1641
     Me.Parent![Label145].Top = Me.Parent!费用报销单明细.Top + Me.Parent!费用报销单明细.Height
    End If
End Sub
1.但是要把完整的窗体发出来才能全部弄好
2.最终要的效果图发出来

灰太郎

改后的部分效果图，需完善

灰太郎

见图

灰太郎

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

灰太郎

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

灰太郎

这个也没有

灰太郎

这个也没有

灰太郎

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