怎么实现子窗体各条指定字段值自动汇总到窗体字段？

悍将　发表于：2015-12-24 21:27:46 　

杜超发表于：2015-12-24 21:43:36

用ADO代码实现

杜超发表于：2015-12-24 22:57:39

Private Sub Command2_Click()
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("sheet1", , dbReadOnly)
    Me.Text3 = ""
    Do Until rst.EOF
        Debug.Print rst!反馈意见
        Me.Text3 = Me.Text3 & "," & rst!反馈意见
        rst.MoveNext
    Loop
    Me.Text3 = Mid(Me.Text3, 2)

rst.Close
Set rst = Nothing
End Sub

Top

唐生发表于：2015-12-25 08:50:33

好像楼上的是正解哦。

Top

落尘_小新发表于：2015-12-25 11:52:00

Private Sub Command6_Click()
    For i = 1 To Me.子窗体.Form.RecordsetClone.RecordCount
        Me.子窗体.Form.SelTop = i
        Strhz = Me.子窗体.Form.反馈意见
        Me.反馈意见汇总 = Me.反馈意见汇总 & Strhz & "；"
    Next
End Sub

Top

悍将发表于：2016-01-04 20:43:45

谢谢各位老师指点，测试了下代码，落尘小新老师写的代码如果不断点击按钮则文本会不断出现生成的重复值，杜老师的代码就达到了效果。真的感谢老师们！

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

[5分]怎么实现子窗体各条指定字段值自动汇总到窗体字段？