同款号的资料，合并在一个单元格，并能自动换行显示

菜鸟　发表于：2011-03-13 22:45:35 　

请问各位老师，能否帮忙看一下，怎么能由access的表一，变成EXCEL的表一，同一款的资料自动合并并换行显示，谢谢！

罗衣惹轻尘发表于：2011-03-13 23:26:00

把里面的模块改下：

Function fldSum(ID As String) As String
Dim rs As New ADODB.Recordset
Dim ssql As String
Dim i As Long, j As Long
ssql = "select * from 表1 where 款号='" & ID & "'"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
   For j = 1 To rs.Fields.Count - 1
        fldSum = fldSum & rs.Fields(j).Value & " " & Chr(10) & Chr(13)
   Next
   rs.MoveNext
Next
rs.Close
End Function

但具体情况还要看Excel的设置的。不然导出来看起来也还是没换行的样子。

Top

菜鸟发表于：2011-03-13 23:46:46

这样款号与石料数量都合在一起了

还有就是每一列都换成一行了，

我想要的效果是：

ID	款号	合并后
1	AB50002	RD1.3MM 304 RD1.7MM 57 RD1.8MM 30
2	AB500	RE2.5MM 50 RD2.3MM 221
3	RTS	Rd2.5MM 221 RD2.8mm 4546

合并后，石资料与数量合并在一起及不同的石料都要换行,这样看起来才比较直观！能不能做得到呢，谢谢！

Top

菜鸟发表于：2011-03-13 23:47:21

ID	款号	合并后
1	AB50002	RD1.3MM 304 RD1.7MM 57 RD1.8MM 30
2	AB500	RE2.5MM 50 RD2.3MM 221
3	RTS	Rd2.5MM 221 RD2.5mm 4546

Top

菜鸟发表于：2011-03-15 09:38:36

怎么没有答呢？

Top

煮江品茶发表于：2011-03-15 11:33:49

Function fldSum(ID As String) As String
Dim rs As New ADODB.Recordset
Dim ssql As String
Dim i As Long, j As Long
ssql = "select * from 表1 where 款号='" & ID & "'"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
   For j = 2 To rs.Fields.Count - 1
        fldSum = fldSum & Format(rs.Fields(j).Value, "!@@@@@@@@@")
   Next
   fldSum = fldSum & Chr(13) & Chr(10)
   rs.MoveNext
Next
rs.Close
End Function

SELECT 表1.款号, fldSum([款号]) AS 石料
FROM 表1
GROUP BY 表1.款号;

Top

菜鸟发表于：2011-03-15 13:11:42

太感谢了！

Top

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

Access交流中心

同款号的资料，合并在一个单元格，并能自动换行显示