有3列，学校ID，年级ID，班级ID，三个为联合主建关系，如何用VBA实现
目前，学校ID，年级ID已经为已知的数，我的目的是要自动生成 班级ID （1，2，3。。。）
比如
学校ID 年级ID 班级ID
101 1
101 1
101 2
102 1
102 2
102 2
我要生成下列形式
学校ID 年级ID 班级ID
101 1 1
101 1 2
101 2 1
102 1 1
102 2 1
102 2 2
请问用VBA如何实现呢？ 谢谢！
[解决办法]
如果你用的ACCESS，则需要在VBA中使用adodb.recordset来进行update 就行了。
QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》
[解决办法]
按班级ID+年级ID先排序
设三个变量:oldclassnum=1,curclassnum=1,oldkeyword="",curkeyword=""
do while 记录未结束
curkeyword="班级ID+年级ID"
if curkeyword=oldkeyword then
当前行班级ID=oldclassnum+1
oldclassnum=当前行班级ID
oldkeyword=curkeyword
else
当前行班级ID=1
oldclassnum=当前行班级ID
oldkeyword=curkeyword
endif
enddo
[解决办法]
学习
