关于查询Access数据库后 筛选后统计问题

[bai632382]

Call OpenConn2
sql = "select FScrq,Min(FNo) as FNo1,Max(FNo) as FNo2,COUNT(DISTINCT FRwdh),count(distinct FTpz),sum(FLjcs),sum(FLjfs),count(distinct FSjxm),sum(FGls) as FGls1 from TJlb1 group by FScrq order by FScrq asc"
'sql = sql & " where FScrq = 2009-7-11"
rs2.Open sql, cn2, 1, 1
Do While Not rs2.EOF
Set addLVW = Me.lvwPD.ListItems.Add()
addLVW.SubItems(1) = rs2!FNo & ""
addLVW.SubItems(2) = rs2!FScrq & ""
addLVW.SubItems(3) = rs2!FDcsj & ""
addLVW.SubItems(4) = rs2!FScbt & ""
addLVW.SubItems(5) = rs2!FRwdh & ""
addLVW.SubItems(6) = rs2!FHtdw & ""
addLVW.SubItems(7) = rs2!FGcmc & ""
addLVW.SubItems(8) = rs2!FTpz & ""
addLVW.SubItems(9) = rs2!FLjcs & ""
addLVW.SubItems(10) = rs2!FBcfs & ""
addLVW.SubItems(11) = rs2!FLjfs & ""
addLVW.SubItems(12) = rs2!FShch & ""
addLVW.SubItems(13) = rs2!FSjxm & ""
addLVW.SubItems(14) = rs2!FZt & ""
addLVW.SubItems(15) = rs2!FGcdz & ""
addLVW.SubItems(15) = rs2!FDcsj & ""
addLVW.SubItems(15) = rs2!FCcsj & ""
rs2.MoveNext
Loop
Call CloseConn2


Access 不支持 聚合函数里包含 筛选. 有没有什么解决办法
万分感谢

[bai632382]

自己先顶一下·

[chinaboyzyq]

可以有两种方法：
一种在SQL语句中使用 Having 筛选，
例如：
SELECT region, SUM(population), SUM(area) FROM bbc GROUP BY region HAVING UM(area)>1000000

另一种用Filter 对rs筛选,，
例如：
rst.Filter = "a<3"