Office中国论坛/Access中国论坛

标题: 交叉表查询求助 [打印本页]
作者: wang1950317    时间: 2012-12-25 22:29
标题: 交叉表查询求助
各位老师，想把左面的表搞成右面的表的样子，不会做。请各位老师指教,谢谢

[attach]51006[/attach][attach]51005[/attach]
作者: Henry D. Sy    时间: 2012-12-26 10:34
固定只有结果3吗？
作者: wang1950317    时间: 2012-12-26 11:55
谢谢Henry D. Sy 老师关注。主要目的就是要把地点、项目（编号）相同的三个结果横排。
作者: miracle-y    时间: 2012-12-26 14:05
可以通过EXCEL列转行可以实现，要是需要的话可以联系我，access我也不会
作者: Henry D. Sy    时间: 2012-12-26 15:55
wang1950317 发表于 2012-12-26 11:55
谢谢Henry D. Sy 老师关注。主要目的就是要把地点、项目（编号）相同的三个结果横排。

把例子传上来
作者: wang1950317    时间: 2012-12-26 17:01
Henry D. Sy 老师，附件已在上面啦。请指点。
作者: Henry D. Sy    时间: 2012-12-27 13:23
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"

  12.     sSQL = "SELECT DISTINCT Left([编号],Len([编号])-1), 地点, 结果.项目 FROM 结果;"

  14.     rs.Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly

  16.     Do While Not rs.EOF
  17.         strfldName = ""
  18.         strbh = rs.Fields(0)
  19.         strdd = rs.Fields(1)
  20.         strxm = rs.Fields(2)

  22.         sSQL = "SELECT 地点, 项目, 结果 FROM 结果 WHERE Left([编号],Len([编号])-1)='" & strbh & "'"

  24.         rst.Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly

  26.         Do While Not rst.EOF

  28.             strfldName = strfldName & "'" & rst.Fields("结果") & "',"

  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    时间: 2012-12-27 19:15
Henry D. Sy 老师辛苦啦！非常好！解决了一个大问题。谢谢！谢谢！
作者: miracle-y    时间: 2012-12-27 21:53
可以试试这个EXCEL工具，希望能够帮到你
作者: wang1950317    时间: 2012-12-27 22:14
谢谢miracle-y提供的Excel解决办法，已下载学习过啦，用到处理一楼的示例，小的还得慢慢学习消化，非常感谢!



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3