获取前2000名记录

Question

我有以下问题

Str研究生=“TRANSFORM Format(Sum(Mandays.Hours)，”“#0.0”)作为值，选择Mandays.WorkTypeCode作为WONo，Format(和(Mandays.Hours)，“0000.0”)作为Mandays.WorkTypeCode PIVOT UCase(Ent )从Mandays组中的总和；

查询返回超过2048条记录，然后无法在VB6 MSHFLexGrid中显示(限制为2048)。我如何更改查询，以便必须获取前2000条记录？

Answer 1

最有效的方法是这样做：

CurrentDB.CreateQueryDef("tmpQuery", "SELECT Top 2000 * FROM Mandays")

strfinal = "TRANSFORM Format(Sum([tmpQuery].[Hours]),""#0.0"") AS [The Value] 
SELECT tmpQuery.WorkTypeCode AS WONo, Format(Sum([tmpQuery].[Hours]),""0000.0"") AS 
Total FROM tmpQuery GROUP BY tmpQuery.WorkTypeCode PIVOT UCase([Ent By]); "

可以在当前代码中的SELECT语句之后放置“ 2000”，但是在另一个查询中这样做会大大加快速度。

如果您愿意的话，您也可以在CreateQueryDef中设置ORDER语句，这样您就可以控制使用哪2000条记录。