求解答子窗体显示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

复制代码

Henry D. Sy

把上面的代码中
sSQL=这句换成下面这句，就不管你有什么科目

1. sSQL = "SELECT 学生档案.*, " & _
   
2.            Me.ComboBiao & ".* FROM 学生档案 INNER JOIN " & _
   
3.            Me.ComboBiao & "  ON 学生档案.ID = " & Me.ComboBiao & _
   
4.            ".ID WHERE 入学时间 between #" & start & "# and #" & endt & "#"

复制代码

Henry D. Sy

对，如果科目变化，还要修改！

秒弑

谢谢版主，请问一下，这样的话是不是只要考试表的课目不变就没有问题？

Henry D. Sy

不需要临时表

1. Private Sub CommandFind_Click()
   
2.     Dim Qdf As DAO.QueryDef
   
3.     Dim start As Date, endt As Date
   
4.     Dim sSQL As String
   
5.     If IsNull(Me.ComboBiao) Then
   
6.         MsgBox "请选择考试时间"
   
7.         Exit Sub
   
8.     End If
   
9.     If Not IsNull(Me.TextTup) Then
   
10.         start = Me.TextTup
    
11.     Else
    
12.         MsgBox "请输入开始日期"
    
13.         Exit Sub
    
14.     End If
    
15.     If Not IsNull(Me.TextTDown) Then
    
16.         endt = Me.TextTDown
    
17.     Else
    
18.         MsgBox "请输入结束日期"
    
19.         Exit Sub
    
20.     End If
    
21.     Set Qdf = CurrentDb.QueryDefs("A")
    
22.     sSQL = "SELECT 学生档案.ID, 姓名, 入学时间, 语文, 数学, 英语 FROM 学生档案 INNER JOIN " & _
    
23.            Me.ComboBiao & "  ON 学生档案.ID = " & Me.ComboBiao & _
    
24.            ".ID WHERE 入学时间 between #" & start & "# and #" & endt & "#"
    
25.     Qdf.SQL = sSQL
    
26.     Me.ChildShow.SourceObject = "查询.A"
    
27.     Qdf.Close
    
28.     Set Qdf = Nothing
    
29. End Sub

复制代码

秒弑

已经解决了，不过不知道代码对不对，麻烦版主帮我看看，在第一页。

Grant

建议你使用子窗体或者查询来实现
Me.ChildShow.SourceObject = 查询对象或者其他对象.

t小宝

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

秒弑

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

秒弑

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