查询设计难题??

xingzhihao

各位:
如何将下面 左 边数据结构,通过查询变为 右 边结构???   老大请指点一二.

原始

字段1     字段2                           字段1     字段2
  1             a                                   1         abcd
  1             b                                   2         abc
  1             c                                   3         ab
  1             d                                   4         a
  2             a                                 
  2             b                                 
  2             c                                   
  3             a   
  3             b   
  4             a

注意:这里的a、b、c、d是随机文本,并不固定!!!

[ 本帖最后由 xingzhihao 于 2007-10-11 21:42 编辑 ]

Henry D. Sy

1.新建模块一个
Public Function Getstring(rsField As Integer) As String
Dim rs As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim strSql As String
Set cnn = CurrentProject.Connection
strSql = "select * from 表1 where 字段1=" & rsField & ""
rs.Open strSql, cnn, adOpenKeyset, adLockOptimistic
Do While Not rs.EOF
Getstring = Getstring & rs.Fields("字段2")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set cnn = Nothing
End Function
2.再建查询一个
SELECT 表1.字段1, Getstring([字段1]) AS 字段2
FROM 表1
GROUP BY 表1.字段1, Getstring([字段1]);

[ 本帖最后由 dddddd 于 2007-10-11 22:13 编辑 ]

xingzhihao

感谢dddddd 的帮助!