加上筛选条件
dmp.Filter = "分类号 = '" & e.row("分类号") & "'"
http://www.foxtable.com/webhelp/scr/0582.htm
http://www.foxtable.com/webhelp/scr/1457.htm