[求助]怎么样将创建查询结果显示出来?

borei

如下创建了查询,怎么将结果在窗体中显示出来呢?  

   Dim dbs As DAO.Database
   Dim qdf As DAO.QueryDef
   Dim strSQL As String

   Set dbs = CurrentDb
   strSQL = "SELECT * FROM Main WHERE 滞支天数>0"
   Set qdf = dbs.CreateQueryDef("Temp", strSQL)
   Me.Child6.SourceObject = Temp


   

一点通

可直接在对象中创建查询,直接打开就行了