SELECT bj,
sum(iif(zf>=600,1,0)) AS [>=600],
sum(iif(zf>=590,1,0)) AS [>=590],
sum(iif(zf>=580,1,0)) AS [>=580],
sum(iif(zf>=570,1,0)) AS [>=570],
sum(iif(zf>=560,1,0)) AS [>=560],
sum(iif(zf>=550,1,0)) AS [>=550],
sum(iif(zf>=540,1,0)) AS [>=540],
sum(iif(zf>=530,1,0)) AS [>=530],
sum(iif(zf>=520,1,0)) AS [>=520],
sum(iif(zf>=510,1,0)) AS [>=510],
sum(iif(zf>=500,1,0)) AS [>=500],
sum(iif(zf>=490,1,0)) AS [>=490],
sum(iif(zf>=480,1,0)) AS [>=480],
sum(iif(zf>=470,1,0)) AS [>=470],
sum(iif(zf>=460,1,0)) AS [>=460],
sum(iif(zf>=450,1,0)) AS [>=450],
sum(iif(zf>=440,1,0)) AS [>=440],
sum(iif(zf>=430,1,0)) AS [>=430],
sum(iif(zf>=420,1,0)) AS [>=420],
sum(iif(zf>=410,1,0)) AS [>=410],
sum(iif(zf>=400,1,0)) AS [>=400],
sum(iif(zf<400,1,0)) AS [<400],
sum(1) AS [总计]
FROM stumd
GROUP BY bj;
Set db = DBEngine.OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb")
Set rs = db.OpenRecordset("SELECT DISTINCTROW Partition([freight],0, 500, 50) AS Range, Count(Orders.Freight) As Count From Orders GROUP BY Partition([freight],0,500,50)")
Set Data1.Recordset = rs