If mul_pro.Prod_Name.Count > 1 Then For i = 1 To mul_pro.Prod_Name.UBound Unload mul_pro.Prod_Name(i) Unload mul_pro.Prod_Num(i) Unload mul_pro.MinLimit(i) Unload mul_pro.MaxLimit(i) Next i End If
Unable to unload within this context --------------------------- 这句提示是说在当前上下文中,该控件不能卸载,MSDN中对365错误有说明,那上面指出了7种可能的情况,你自己参考一下。 这些情况,实际上都是因逻辑结构设计上的矛盾引起的,你要查一下代码。我遇到过这种错误: 当时是试图卸载一个包含其它控件的容器,而产生了365错误,后来的解决办法是:先用Set obj.Container = Me,将其包含的控件移出,再Unload就成功了。
If mul_pro.Prod_Name.Count > 1 Then
For i = 1 To mul_pro.Prod_Name.UBound
Unload mul_pro.Prod_Name(i)
Unload mul_pro.Prod_Num(i)
Unload mul_pro.MinLimit(i)
Unload mul_pro.MaxLimit(i)
Next i
End If
---------------------------
这句提示是说在当前上下文中,该控件不能卸载,MSDN中对365错误有说明,那上面指出了7种可能的情况,你自己参考一下。
这些情况,实际上都是因逻辑结构设计上的矛盾引起的,你要查一下代码。我遇到过这种错误:
当时是试图卸载一个包含其它控件的容器,而产生了365错误,后来的解决办法是:先用Set obj.Container = Me,将其包含的控件移出,再Unload就成功了。