Excel VBA：具有多列的表单控件列表框--如何从ADO记录集填充？
由于兼容性问题，我不得不在我的电子表格上使用Excel表单控件列表框（vs.ActiveX）控件。我试图用ADO记录集中的三个字段填充它，但自从使用表单控件以来，我遇到了一些问题 这是我为ActiveX列表框编写的代码。您能给我举个例子，说明从ADO记录集填充具有多列的表单控件列表框吗 提前感谢您在进行此转换时提供的任何帮助 --汤姆Excel VBA：具有多列的表单控件列表框--如何从ADO记录集填充？,excel,vba,controls,Excel,Vba,Controls,由于兼容性问题，我不得不在我的电子表格上使用Excel表单控件列表框（vs.ActiveX）控件。我试图用ADO记录集中的三个字段填充它，但自从使用表单控件以来，我遇到了一些问题 这是我为ActiveX列表框编写的代码。您能给我举个例子，说明从ADO记录集填充具有多列的表单控件列表框吗 提前感谢您在进行此转换时提供的任何帮助 --汤姆 不知道表单控件是否可以支持ActiveX列表框那样的MultiCOLMNs，所以您可能需要考虑以不同的方式添加它们。 下面是如何删除/添加所有项目的示例，希望对您
不知道表单控件是否可以支持ActiveX列表框那样的MultiCOLMNs，所以您可能需要考虑以不同的方式添加它们。 下面是如何删除/添加所有项目的示例，希望对您有所帮助：
'to remove all previous items
Me.Shapes("lst_System").ControlFormat.RemoveAllItems
'to add item
Me.Shapes("lst_System").ControlFormat.AddItem "SomeStringValue"
我忘了添加，这个列表框在电子表格上，而不是在用户表单中。
'to remove all previous items
Me.Shapes("lst_System").ControlFormat.RemoveAllItems
'to add item
Me.Shapes("lst_System").ControlFormat.AddItem "SomeStringValue"