组合框模糊查询，更新List属性时出错

liangdx

这是一个2列组合框。


组合框的初始代码

1. Sub CobCust_Name_Initialize()
   
2.   Cust_Data = get_Column2("Customer", "CustID", "CustName")
   
3.   If IsArray(Cust_Data) Then
   
4.     CobCust_Name.List = WorksheetFunction.transpose(Cust_Data)
   
5.   End If
   
6. End Sub
   

复制代码

以上代码初始化组合框正常。

组合框模糊查询代码，触发Change事件出现错误  :   运行时错误'70' 对象关闭时,不允许操作

1. Private Sub CobCust_Name_Change()
   
2.    Cust_Data = get_Column2("Customer", "CustID", "CustName", "CustName like '%" & CobCust_Name.Text & "%'")
   
3.    If IsArray(Cust_Data) Then
   
4.        CobCust_Name.List = TransposeArr(Cust_Data)   'TransposeArr是自定义转置函数，验证过函数没有问题,用自带的Transpose也是出错
   
5.        CobCust_Name.DropDown
   
6.    End If
   
7. end sub

复制代码

另外说明一下，如果组合框是单列的，那么模糊查询代码，触发Change事件也是没有问题的。

不知道是什么原因.排除Recordset关闭的情况。因为get_Column2自定义函数已经获取到数组，并且Cust_data里面有数组数据。
希望高手帮忙看一下。谢谢

taller

更改组合框内容，激活Change事件，触发其中的DropDown，岂不是成了死循环 。。

liangdx

taller 发表于 2023-7-9 02:59
更改组合框内容，激活Change事件，触发其中的DropDown，岂不是成了死循环 。。

把dropdown注释掉，问题依然。