交叉表查询求助

wang1950317

各位老师，想把左面的表搞成右面的表的样子，不会做。请各位老师指教,谢谢

Henry D. Sy

固定只有结果3吗？

wang1950317

谢谢Henry D. Sy 老师关注。主要目的就是要把地点、项目（编号）相同的三个结果横排。

miracle-y

可以通过EXCEL列转行可以实现，要是需要的话可以联系我，access我也不会

Henry D. Sy

wang1950317 发表于 2012-12-26 11:55
谢谢Henry D. Sy 老师关注。主要目的就是要把地点、项目（编号）相同的三个结果横排。

把例子传上来

wang1950317

Henry D. Sy 老师，附件已在上面啦。请指点。

Henry D. Sy

wang1950317 发表于 2012-12-26 17:01
Henry D. Sy 老师，附件已在上面啦。请指点。

1. Private Sub Command0_Click()
   
2.     Dim sSQL As String
   
3.     Dim strSQL As String
   
4.     Dim rs As New ADODB.Recordset
   
5.     Dim rst As New ADODB.Recordset
   
6.     Dim strbh As String
   
7.     Dim strfldName As String
   
8.     Dim strdd As String
   
9.     Dim strxm As String
   
10.     CurrentDb.Execute "delete from A"
    
11. 
    
12.     sSQL = "SELECT DISTINCT Left([编号],Len([编号])-1), 地点, 结果.项目 FROM 结果;"
    
13. 
    
14.     rs.Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
    
15. 
    
16.     Do While Not rs.EOF
    
17.         strfldName = ""
    
18.         strbh = rs.Fields(0)
    
19.         strdd = rs.Fields(1)
    
20.         strxm = rs.Fields(2)
    
21. 
    
22.         sSQL = "SELECT 地点, 项目, 结果 FROM 结果 WHERE Left([编号],Len([编号])-1)='" & strbh & "'"
    
23. 
    
24.         rst.Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
    
25. 
    
26.         Do While Not rst.EOF
    
27. 
    
28.             strfldName = strfldName & "'" & rst.Fields("结果") & "',"
    
29. 
    
30.             rst.MoveNext
    
31.         Loop
    
32.         strSQL = "insert into a (地点,项目,结果1,结果2,结果3,编号) values('" & strdd & "','" & strxm & "'," & strfldName & "'" & strbh & "')"
    
33.         CurrentDb.Execute strSQL
    
34.         rst.Close
    
35.         rs.MoveNext
    
36.     Loop
    
37.     Me.AA.Requery
    
38.     rs.Close
    
39.     Set rs = Nothing
    
40.     Set rst = Nothing
    
41. End Sub

复制代码

wang1950317

Henry D. Sy 老师辛苦啦！非常好！解决了一个大问题。谢谢！谢谢！

miracle-y

可以试试这个EXCEL工具，希望能够帮到你

wang1950317

谢谢miracle-y提供的Excel解决办法，已下载学习过啦，用到处理一楼的示例，小的还得慢慢学习消化，非常感谢!