请教各位高手个麻烦的问题

先建一个查询，将重复数大于等于2的筛选出来。同时参考下面的代码，

dim cz as string   '定义初值函数

dim  qtyj as  Integer'定义需要加的值

Set sj = CurrentDb.OpenRecordset("。。。")  '写入查询出的内容

Set xjb= CurrentDb.OpenRecordset("。。。")  '新建一个表，并字段相同，将数据写入的表

cz=sj("buynum")

sj.movenext

While Not sj.EOF    '开始循环

if cz=sj("buynum") then  '判断相同

   qtyj= qtyj+sj("qty")

else

 xjb.addnew

 xjb("qty")=qtyj

 xjb(" id ")=sj("id")

 .............                 '将其它的它段也写入

 xjb.update

endif

sj.movenext

Wend

endif

意思就是这样的。