※ 引述《a156432 (vv)》之铭言： : 刚接触Access不久 : 目前遇到资料处理的问题卡了两三天 献丑了.. : 资料表如下 : 代号 客户 商品清单 : A01 甲 酱油 '--1 : A01 甲 酱油 '--2 : A02 乙 酱油 '--3 : A02 丁 酱油 '--4 : A03 丁 盐 '--5 : A04 戊 砂糖 '--6 : . : . : . : 我要用计数的方式将重复的资料找出来 : 例如: : 第一笔跟第二笔资料重复 : 当DO WHILE NOT .EOF 跑到第一笔 : 先将第一笔资料暂存 tempA= .代号 & .客户 & .商品 : 下一笔遇到相同资料时与第一笔暂存比较 : 假如第二笔tempB=tempA : 则计数 count=count+1 : 第二个问题 : 以商品排序显示出 商品的客户有谁 : 这时候就不管代号只要找出商品对应的客户 : 我要怎麽在跑重复回圈的同时判断 : 当商品一样遇到不同客户截取出来 : ex:酱油的客户有 甲、乙、丁 : strSql = " SELECT 代号,客户，商品 FROM TABLE ORDER BY 商品" : Set rst1 = CurrentDb.OpenRecordset(strSql) : rst1.MoveFirst : Do While Not rst1.EOF : temp = rst1!客户代号 & rst1!EndUser清单 & rst1!客户简称 : 到这里把第一笔暂存起来 : 之後就不知道要怎麽跟第二笔资料比会比较好.... : rst1.MoveNext : Loop 为什麽不直接下SQL就好? 另一问题"代号" 指的是? 看起来不是产品代号，所以比对时要前三个栏位一样才算一样 对吧！ (1) SELECT 代号， col2, col3 , COUNT(*) AS CNT FROM TABLE GROUP BY col1, 2 ,3 ; (2) SELECT 商品， 客户 FROM TABLE GROUP BY col1, 2 --WHERE 商品 ='你要查的商品名' ; --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 223.140.28.116 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1512650003.A.87E.html