子窗體中的數(shù)據(jù)錄入在窗體中形成一人Excel表格式的形態(tài)出現(xiàn)問題，如何應(yīng)用其數(shù)據(jù)...

YXH_YXH

窗體代碼為：
Private Sub Form_Current()

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

    Set frm = [Form_費(fèi)用報(bào)銷單明細(xì)]
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


問題是：當(dāng)我應(yīng)用在其他時修改其數(shù)據(jù)窗體與子窗體顯示會不同步。請指出其參數(shù)使用如何同步。見圖片！

灰太郎

文件發(fā)出來

YXH_YXH

灰太郎 發(fā)表于 2024-1-26 08:17
文件發(fā)出來

已上傳，謝謝��！

灰太郎

你發(fā)的文件沒有如上圖，少發(fā)一個1，重發(fā)下

灰太郎

主窗體
Private Sub Form_Current()
Dim frm As Form, intRC As Integer
Me.Label145.Top = Me.費(fèi)用報(bào)銷單明細(xì).Top + Me.費(fèi)用報(bào)銷單明細(xì).Height
Set frm = [Form_費(fèi)用報(bào)銷單明細(xì)]
With frm
   intRC = .RecordsetClone.RecordCount
   If intRC <= 4 Then
    Me.Label145.Top = 2830
    Else
    Me.Label145.Top = Me.費(fèi)用報(bào)銷單明細(xì).Top + Me.費(fèi)用報(bào)銷單明細(xì).Height
    End If
   End With
End Sub
子窗體
Private Sub Form_AfterInsert()
   intRC = Me.RecordsetClone.RecordCount
    If intRC <= 4 Then
     Me.Parent!費(fèi)用報(bào)銷單明細(xì).Height = 730 + 300 * (intRC + 1)
     Me.Parent!Label145.Top = Me.Parent!費(fèi)用報(bào)銷單明細(xì).Top + Me.Parent!費(fèi)用報(bào)銷單明細(xì).Height
    Else
   Me.Parent!費(fèi)用報(bào)銷單明細(xì).Height = 3470
   Me.Parent!Label145.Top = Me.Parent!費(fèi)用報(bào)銷單明細(xì).Top + Me.Parent!費(fèi)用報(bào)銷單明細(xì).Height
    '1641
    End If
End Sub
Private Sub Form_Current()                      'InsideHeight = 1544 這是調(diào)整子窗體高度的參數(shù)
   intRC = Me.RecordsetClone.RecordCount
    If intRC <= 4 Then
     Me.Parent!費(fèi)用報(bào)銷單明細(xì).Height = 730 + 300 * (intRC + 1)
     Me.Parent!Label145.Top = Me.Parent!費(fèi)用報(bào)銷單明細(xì).Top + Me.Parent!費(fèi)用報(bào)銷單明細(xì).Height
    Else
    Me.Parent!費(fèi)用報(bào)銷單明細(xì).Height = 3470  '1641
     Me.Parent![Label145].Top = Me.Parent!費(fèi)用報(bào)銷單明細(xì).Top + Me.Parent!費(fèi)用報(bào)銷單明細(xì).Height
    End If
End Sub
1.但是要把完整的窗體發(fā)出來才能全部弄好
2.最終要的效果圖發(fā)出來

灰太郎

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

灰太郎

見圖

灰太郎

YXH_YXH，人、你完整的程序發(fā)出來，我完善好后發(fā)出來源碼

YXH_YXH

灰太郎 發(fā)表于 2024-1-28 13:51
改后的部分效果圖，需完善

你好！搞了好一陣子還是有問題。不知道什么原因，估計(jì)文件或數(shù)據(jù)出現(xiàn)問題，出現(xiàn)連接不上。如DAO的加載失敗。完整圖是這樣的，就是一個表格式的。我覺得我發(fā)你的代碼沒有問題，是顯示問題。視圖中的行距是0.899CM的，你看看問題存在那。謝謝！！

YXH_YXH

看到你上的二圖片，第一張圖片的正常顯示是不正常的，第二張圖片不確定。問題應(yīng)出自窗體與子窗體間的高度不協(xié)調(diào)吧。我覺得我發(fā)的代碼沒有問題，是顯示問題。