use dzb
SELECT dz, COUNT(*) 出现次数 FROM dzb INTO CURSOR ls_dz GROUP BY dz
SELECT ls_dz
INDEX on dz TO dz
SELECT dzb
SET RELATION TO Dzb.dz INTO Ls_dz ADDITIVE
REPLACE ALL 出现次数 WITH ls_dz.出现次数

想看看 你的vba代码

[code]