传递汇总子窗体里的值功能示例-新问题

一如既往　发表于：2018-04-15 21:47:01 　

复制

原帖地址：http://www.accessoft.com/article-show.asp?id=10597

问题：“反馈意见”中如果有重复值，怎么写代码去掉重复项只保留一条？

比如，数据如下5行：

不行

看看

就这样

不行

就这样

点按钮后的效果主窗体文本框只显示：不行，看看，就这样

Top

黎红军发表于：2018-04-16 05:23:45

依据你的这个字段group by就可以了。

Top

一如既往发表于：2018-04-16 07:05:25

以方法二为例，group by加到什么位置？ 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

Top

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

Access交流中心

传递汇总子窗体里的值功能示例-新问题