把显示出来的结果复制到一个新表中去,再到这个表去查询.
要不是自己编一段循环代码,来统计.
要不是这样吧.
再开多一个DATA控件之类的
dim currentrecq as recordset
sql="select count(姓名) from 表 where 你的查询条件".
Set CurrentRec1 = CurrentDB.OpenRecordset(strSql, dbOpenDynaset)
Dim CurrentDB As Database
Dim CurrentRec As Recordset
Dim strSql As String
Set CurrentDB = OpenDatabase("数据库路径和名称", True, False, ";pwd=ansisapp")
strSql = "select * from 表名 where '人名' like '王*'"
Set CurrentRec = CurrentDB.OpenRecordset(strSql, dbOpenDynaset)
If CurrentRec.RecordCount <> 0 Then
'循环添加到 msflexgrid
end if