求解答子窗体显示SQL查询内容的问题。

秒弑

如图，窗体出下：

窗体载入时，子窗体显示学生档案表，输入入学时间段后，再选择考试时间，按按钮得到入学时间段内某次考试的结果并显示在子窗体中。
问题1：子窗体不能显示非固定列的SQL查询结果，且报错。如图：

问题2：学生档案与成绩的交叉查询如何通过SQL代码实现？
附近上传，求高手解答，谢谢。


————————————————————————————

谢谢版主，已经解决了，用ADO那间临时表实现的。代码上传一下。里面有几句关于ADO的代码不太明白，不知道是否有不合理的地方。

1. Option Compare Database
   
2. 
   
3. Private Sub ComboBiao_change()
   
4. 'Dim strBiaoname As String
   
5. 'strBiaoname = DLookup("表名", "学生成绩_表名", "说明 = '" & Me.ComboBiao.Value & "'")
   
6. 'Me.ChildShow.SourceObject = "表." & strBiaoname
   
7. 'Me.ChildShow.Requery
   
8. End Sub
   
9. 
   
10. Private Sub CommandClear_Click()
    
11. Me.ChildShow.SourceObject = "表.学生档案"
    
12. Me.ChildShow.Requery
    
13. ComboBiao.Value = ""
    
14. End Sub
    
15. 
    
16. Private Sub CommandFind_Click()
    
17. Dim rs As New ADODB.Recordset
    
18. Dim strfind, strBiaoname As String
    
19. Dim strTup, strTdown As Date
    
20. 
    
21. Me.ChildShow.SourceObject = ""
    
22. 
    
23. If Me.ComboBiao.Value <> "" Then
    
24.     strTup = Me.TextTup.Value
    
25.     strTdown = Me.TextTDown.Value
    
26.     strBiaoname = DLookup("表名", "学生成绩_表名", "说明 = '" & Me.ComboBiao.Value & "'")
    
27. 
    
28.     '删除临时表
    
29.     strfind = "drop table 临时表_成绩查询"
    
30.     rs.Open strfind, CurrentProject.Connection, 1, 3
    
31. 
    
32.     '建立临时表并显示
    
33.     strfind = "select 学生档案.ID,学生档案.姓名," & strBiaoname & ".语文," & strBiaoname & ".数学," & strBiaoname & ".英语 into 临时表_成绩查询 from 学生档案 INNER JOIN " & strBiaoname & " ON 学生档案.ID = " & strBiaoname & ".ID where 学生档案.入学时间 between # " & strTup & " # and #" & strTdown & "# "
    
34.     rs.Open strfind, CurrentProject.Connection, 1, 3
    
35. 
    
36.     Me.ChildShow.SourceObject = "表.临时表_成绩查询"
    
37.     Me.ChildShow.Requery
    
38.    
    
39.     Set rs = Nothing
    
40. Else
    
41.     MsgBox "没有选择考试时间！"
    
42. End If
    
43. 
    
44. End Sub
    
45. 
    
46. Private Sub Form_load()
    
47. Me.ChildShow.SourceObject = "表.学生档案"
    
48. End Sub

复制代码

秒弑

查询按钮的VBA代码是这样的：

1. Private Sub CommandFind_Click()
   
2. Dim strfind As String
   
3. Dim strTup, strTdown As Date
   
4. strTup = Me.TextTup.Value
   
5. strTdown = Me.TextTDown.Value
   
6. strfind = "select * from 学生档案 where 学生档案.入学时间 between # " & strTup & " # and #" & strTdown & "# "
   
7. 'Dim rs As New ADODB.Recordset
   
8. 'Set rs = conn.Execute(strfind)
   
9. 'Me.ChildShow.Form.Recordset = rs
   
10. Me.ChildShow.SourceObject = ""
    
11. Me.ChildShow.Form.RecordSource = strfind
    
12. End Sub

复制代码

清空子窗体数据源后，就不能显示SQL查询，如果解决呢？

Henry D. Sy

考试与日期视乎没有关系！

秒弑

Henry D. Sy 发表于 2012-1-4 08:46
考试与日期视乎没有关系！

我代码里面没有加入代码。但是如果选中了考试时间，再按时间段显示的话，子窗体就会出错。列数不同。

Henry D. Sy

说什么呢？

秒弑

Henry D. Sy 发表于 2012-1-4 09:11
说什么呢？

查询了考试时间，再查入学时间，就显示下图。

秒弑

秒弑

想实现让总表和考试表交叉显示在子窗体中，版主怎么实现呢？找了一通宵百度了。

秒弑

我在网上查了，是不是只能通过按下按钮建立一个临时的查询表，再显示在子窗体里面？

t小宝

子窗体的源对象只能是窗体、表或查询，可以建临时表或临时查询作为子窗体体的源对象