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

Grant

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

秒弑

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

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

复制代码

秒弑

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

Henry D. Sy

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

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 & "#"

复制代码