作者a156432 (vv)
看板Visual_Basic
标题[VBA ] Access 资料计数及找出不同资料
时间Sat Dec 2 20:38:23 2017
刚接触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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.170.131.137
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1512218308.A.E1F.html