运行代码提示错误？

waw751115

恳请大侠们看看：

运行代码提示错误





请教ComboBox1下拉框怎样自动获取access数据库表中“判定品牌”字段下的所有数据(去重复)，请教ComboBox2下拉框怎样匹配ComboBox1来自动获取access数据库表中“判定车系”字段下的所有数据(去重复)，且当选中ComboBox1下拉框某一数据时，ComboBox2下拉框的数据要关联ComboBox1的数据？意思就是当我在ComboBox1下中选中比亚迪时，ComboBox2下拉框里面的数据就全部显示比亚迪的所有车系(以比亚迪三个字开头的)。
窗体在Excel表格中。祝大侠们新年快乐！

WANT-T

把你的Rst转成二给数组，然后用我的这个代码：

1. Public Sub 向ComboBox加载列表(comb As Object, list)
   
2.     '参数comb：Combobox控件
   
3.     '参数list：二维数组
   
4.     With comb
   
5.         .Clear
   
6.         .list = list
   
7.         .Text = .list(0) '默认显示第一个
   
8.     End With
   
9. End Sub

复制代码

waw751115

WANT-T 发表于 2023-1-20 22:11
把你的Rst转成二给数组，然后用我的这个代码：

谢谢，祝新年快乐！感觉好复杂啊！