2

我的列表框有问题。在用户表单初始化事件中,我使用以下代码填充它:

RecordSelectionBox.List = WorkingCopy.Worksheets(1).Range("A2:P20").Value 

效果很好。我有列宽调整,效果也很好。一旦用户选择了一条记录,列表框中的一行我将一堆标签的标题设置为列表框列的值。它可以很好地填写标签标题 1 到 15。当它达到 16 时,我收到错误“无法获取列属性。无效参数”“运行时错误 '-2147024809 (80070057)'”

这是代码:

Explanation.Caption = RecordSelectionBox.Column(16)

RecordSelectionBox.ColumnCount 的 debug.print 显示我确实有 16 列。解释字段是我正在使用的字段中最长的字段,但我不确定我是否明白这将如何成为问题。如果有人有想法,我会全力以赴。

4

1 回答 1

3

那是因为列表框的第一列以0

你的第一个标签应该是

Label1.Caption = RecordSelectionBox.Column(0)

16号应该是

Explanation.Caption = RecordSelectionBox.Column(15)
于 2013-09-27T19:52:23.177 回答