索引数组并将内容放入TextBox

Question

我有一个由字符串组成的数组，我试图循环并将内容放入Textbox。不幸的是，我的程序每次添加数组的另一个元素时都会覆盖前一行，但是没有跳过一行。有任何想法吗？

注意：textbox称为NotesBox。 userform所在的textbox称为TabData

For v = 1 To counter_notes - 1
    TabData.NotesBox.Text = ProdNotes(v) & Chr(13)
Next v
End Sub

Answer 1

您可以将数组直接指定给.List的{​​{1}}属性，例如：

ListBox

否则，您没有分配到TabData.NotesBox.List = ProdNotes 属性，您可以在循环中使用.Text方法：

.AddItem

如果您使用的是Dim itm For each itm in ProdNotes TabData.NotesBox.AddItem itm Next ，请使用TextBox功能，如下所示：

VBA.Join

或者，循环：

TabData.NotesBox.Text = VBA.Join(ProdNotes, Chr(13))