交叉表查询结果怎样缩减空格

huanglucy

那位老师，帮我看看我做的菜单怎样缩减空格，从而让菜单更短，更合理，谢谢！

Henry D. Sy

try
ado

roych

不妨参考下猫版的：
打卡记录交叉查询的解决方法

Henry D. Sy

1. Function IsTblExist(strTableName As String) As Boolean
   
2.     Dim obj As AccessObject
   
3.     IsTblExist = False
   
4.     For Each obj In CurrentData.AllTables
   
5.         If obj.Name = strTableName Then
   
6.             IsTblExist = True
   
7.             Exit For
   
8.         End If
   
9.     Next
   
10. End Function
    
11. Private Sub Command0_Click()
    
12.     Dim rs As New ADODB.Recordset
    
13.     Dim rst As New ADODB.Recordset
    
14.     Dim tblrs As New ADODB.Recordset
    
15.     Dim cnn As New ADODB.Connection
    
16.     Dim intCount As Long
    
17.     Dim sSQL As String
    
18.     Dim strSQL As String
    
19.     Dim strFiledName As String
    
20.     Set cnn = CurrentProject.Connection
    
21.     If IsTblExist("tbl") Then
    
22.         DoCmd.DeleteObject acTable, "tbl"
    
23.     End If
    
24.     strSQL = "CREATE TABLE tbl(餐次 string,"
    
25.     sSQL = "select distinct 周 from 一周菜单 order by 周 desc"
    
26.     rs.Open sSQL, cnn, adOpenKeyset, adLockReadOnly
    
27.     Do While Not rs.EOF
    
28.         strSQL = strSQL & rs.Fields(0) & " string,"
    
29.         rs.MoveNext
    
30.     Loop
    
31.     strSQL = Left(strSQL, Len(strSQL) - 1) & ")"
    
32.     cnn.Execute strSQL
    
33.     rs.MoveFirst
    
34.     tblrs.Open "tbl", cnn, adOpenKeyset, adLockOptimistic
    
35.     Do While Not rs.EOF
    
36.         strFiledName = rs.Fields(0)
    
37.         sSQL = "select 餐次,菜名称,周 from 一周菜单 where 周='" & strFiledName & "'"
    
38.         rst.Open sSQL, cnn, adOpenKeyset, adLockReadOnly
    
39. 
    
40.         Do While Not rst.EOF
    
41.             If rst.Fields("周") = "周一" Then
    
42.                 tblrs.AddNew
    
43.                 tblrs.Fields("餐次") = rst.Fields("餐次")
    
44.             ElseIf intCount = 0 Then
    
45.                 tblrs.MoveFirst
    
46.                 intCount = intCount + 1
    
47.             Else
    
48.                 tblrs.MoveNext
    
49.             End If
    
50.             tblrs.Fields(strFiledName) = rst.Fields("菜名称")
    
51.             tblrs.Update
    
52.             rst.MoveNext
    
53.         Loop
    
54.         rst.Close
    
55.         rs.MoveNext
    
56.     Loop
    
57.     rs.Close
    
58.     DoCmd.OpenTable "tbl", acViewNormal
    
59.     Set rst = Nothing
    
60.     Set tblrs = Nothing
    
61.     Set rs = Nothing
    
62.     Set cnn = Nothing
    
63. End Sub
    

复制代码

huanglucy

非常感谢版主 Henry.D.Sy 给我这么多的帮助。

huanglucy

Henry D. Sy 发表于 2011-12-12 01:21

非常感谢 Henry.D.Sy 给我这么多的帮助。

huanglucy

roych 发表于 2011-12-11 21:32
不妨参考下猫版的：
打卡记录交叉查询的解决方法

谢谢roych

huanglucy

Henry D. Sy 发表于 2011-12-12 01:21

老师，我调试了你给我代码，但当我增加周四，或增加早餐时，程序就出错，能再帮我看看吗，我要求能任意增加餐次，如夜宵，早餐等，要周一到周日，谢谢！

Henry D. Sy

还是用家猫的方法吧！

查询A

1. SELECT id, 餐次, 菜名称, 周, "菜单" & DCount("id","一周菜单","周='" & [周] & "' And 餐次='" & [餐次] & "' And id<=" & [id]) AS 菜单
   
2. FROM 一周菜单

复制代码

1. TRANSFORM Last(A.菜名称) AS 菜名称之最后一条记录
   
2. SELECT A.餐次, A.周
   
3. FROM A
   
4. GROUP BY A.餐次, A.周
   
5. PIVOT A.菜单;

复制代码

huanglucy

Henry D. Sy 发表于 2011-12-14 00:01
还是用家猫的方法吧！

查询A

非常谢谢老师，我在琢磨琢磨。