全部展开
将代码添加到Combo1下拉事件中，如下所示：我是PrivateSubcombo1_DropDown（）。
组合1
ClearDimCNAsNewADODB。
CN连接
OpenProvider =微软。
喷
Oredobu
4）
0;数据源=＆App。
根数据库的名称。
mdbDimJAsIntegerDimSTAsStringDimrsoAsADODB。
RecordsetSetrso = NewADODB。
从RecordsetST = rso表的名称中选择*。
OpenST，CN，adOpenKeyset，adLockOptimisticIfNotrso。
EOFThenrso。
MoveFirstEndIfForJ = 1Torso。
RecordCountMe
组合1
AddItemrso（字段名称）rso。
MoveNextNextJrso。
CloseSetCN = NothingEndsub