点击下载此附件

 

问题描述:

 

 

怎么实现子窗体各条指定字段值自动汇总到窗体字段？
http://www.accessoft.com/bbs/showtopic.asp?id=25553

 

代码如下: 

Private Sub 汇总法一_Click()
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("反馈表", , dbReadOnly)
    Me.反馈意见汇总 = ""
    Do Until rst.EOF
        Me.反馈意见汇总 = Me.反馈意见汇总 & "；" & rst!反馈意见
        rst.MoveNext
    Loop
    Me.反馈意见汇总 = Mid(Me.反馈意见汇总, 2)

    rst.Close
    Set rst = Nothing

End Sub

 

Private Sub 汇总法二_Click()
    Dim i As Integer
    Dim Strhz As String
    Me.反馈意见汇总 = ""

    For i = 1 To Me.Child1.Form.RecordsetClone.RecordCount
        Me.Child1.Form.SelTop = i
        Strhz = Me.Child1.Form.反馈意见

        Me.反馈意见汇总 = Me.反馈意见汇总 & "；" & Strhz
    Next
    Me.反馈意见汇总 = Mid(Me.反馈意见汇总, 2)

End Sub