Office中国论坛/Access中国论坛

标题: 子窗体中的数据录入在窗体中形成一人Excel表格式的形态出现问题，如何应用其数据... [打印本页]

作者: YXH_YXH 时间: 2024-1-24 20:36
标题: 子窗体中的数据录入在窗体中形成一人Excel表格式的形态出现问题，如何应用其数据...
本帖最后由 YXH_YXH 于 2024-1-26 11:56 编辑

窗体代码为：
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

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

作者: 灰太郎 时间: 2024-1-26 08:17
文件发出来

作者: YXH_YXH 时间: 2024-1-26 11:57

灰太郎发表于 2024-1-26 08:17
文件发出来

已上传，谢谢！！

作者: 灰太郎 时间: 2024-1-28 08:27
你发的文件没有如上图，少发一个1，重发下

作者: 灰太郎 时间: 2024-1-28 10:32
主窗体
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.最终要的效果图发出来

作者: 灰太郎 时间: 2024-1-28 13:51
改后的部分效果图，需完善

作者: 灰太郎 时间: 2024-1-28 13:57
见图

作者: 灰太郎 时间: 2024-1-28 14:48
YXH_YXH，人、你完整的程序发出来，我完善好后发出来源码

作者: YXH_YXH 时间: 2024-1-28 19:36
本帖最后由 YXH_YXH 于 2024-1-28 19:39 编辑

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

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

作者: YXH_YXH 时间: 2024-1-28 19:46
本帖最后由 YXH_YXH 于 2024-1-28 19:54 编辑

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

作者: 灰太郎 时间: 2024-1-28 20:27
你的图和我的图不一样，发个最新的

作者: 灰太郎 时间: 2024-1-28 20:30
这个也没有

作者: 灰太郎 时间: 2024-1-28 20:31
这个也没有

作者: YXH_YXH 时间: 2024-1-28 21:49
本帖最后由 YXH_YXH 于 2024-1-28 21:53 编辑

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

作者: 灰太郎 时间: 2024-1-29 07:31
我发的图片，你最新的文件发出来

作者: YXH_YXH 时间: 2024-1-29 22:13
是一样的，只是参数调整到0.899的高度而已。

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