SELECT TOP 1 值 FROM 表1 WHERE 表1.时间=#9/3/2002 16:35:00# ORDER BY 表1.时间 desc 上面的语句能返回小于等于9/3/2002 16:35:00的值,结果正常 SELECT 表2.时间, (select top 1 值 from 表1 where 表1.时间=表2.时间 order by 表1.时间 desc) AS 数值 FROM 表2 这样书写却只能返回条件小于 ...
'在程序退出前调用下面代码,即可实现当文件到达一定大小才压缩数据库 Public Function AutoCompactCurrentProject() Dim fs, f, s, filespec Dim strProjectPath As String, strProjectName As String strProjectPath = Application.CurrentProject.Path &nb ...