Office中国论坛/Access中国论坛

标题: 求助！急！合并记录后可否筛选 [打印本页]

作者: hr0713 时间: 2010-3-11 09:20
标题: 求助！急！合并记录后可否筛选
施工部门记录合并后，可否内容相同不显示，只显示不同。

作者: todaynew 时间: 2010-3-11 13:52
分组查询即可

作者: hr0713 时间: 2010-3-11 16:20
本帖最后由 hr0713 于 2010-3-12 07:30 编辑

图一

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

作者: hr0713 时间: 2010-3-12 07:30
高手们，帮看看

作者: asklove 时间: 2010-3-12 08:19
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 时间: 2010-3-12 09:17
谢谢！谢谢！可以了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)