求助！急！合并记录后可否筛选

hr0713

施工部门记录合并后，可否内容相同不显示，只显示不同。

todaynew

分组查询即可

hr0713

图一

合并记录后可否按生成图二

hr0713

高手们，帮看看

asklove

Function ntadd(t As String) As String
    Dim str As String
    Dim rs As New ADODB.Recordset
    Dim n As Integer

    rs.Open "select distinct 施工部门 from 切割单 where 钢板编号='" & t & "'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    n = rs.RecordCount

    For i = 1 To n
        str = str & "，" & rs("施工部门")
        rs.MoveNext
    Next
    ntadd = Mid(str, 2, Len(str))
   
    If Left(ntadd, 1) = "，" Then ntadd = Right(ntadd, Len(ntadd) - 1)

End Function

hr0713

谢谢！谢谢！可以了