ACCESS VBA编1.docVIP

ACCESS VBA编程（六）ACCESS查询 分段统计人数?这样一个表 tblScore：班级 姓名 总分 语文 数学1班 a 601 108 1202班 b 589 112 1333班 C 551 98 1452班 D 502 80 1241班 E 508 90 8 3班 F 561 97 135 TRANSFORM Count(tblScore.总分) AS 总分OfCountSelect tblScore.班级FROM tblScoreGROUP BY tblScore.班级 PIVOT Switch([总分]=600,=600,[总分]=550 And [总分]600,550-599,[总分]=500 And [总分]550,500-549,True,Other) In (=600,550-599,500-549,Other); 可得到第一個查詢班级 总分600分以上人数 总分550-600人数 总分550以下人数?1班 1 0 1?2班 0 1 1 3班 0 2 0 用代码在ACCESS中生成永久查询?来源：竹笛整理的技巧集?dim strSQL as stringdim qdf as QueryDef?strSQL = Select * from tblaa tblaa为表Set qdf = CurrentDb.CreateQue