在访问vba

Question

我在网络上没有成功，但确实可以利用帮助。 我有一个未结合的列表框，该框设置为“值列表”。 我要完成的工作是将项目添加到列表框中。我没有在多列中添加项目的问题，但是...

一旦我得到一个完整的列表，大约有10件项目，我希望能够回到列表的顶部，替换新项目添加的项目。...不会丢失旧项目...基本上是更换他们一次一个。

SO：我拥有的是....（正常工作。每隔几分钟添加一个新项目。）

Me.MyListBox.AddItem MyCol1 & ";" MyCol2 现在，在列表到达大约10个项目之后，我想转到（选择任何数字），列表中的第三项并替换。 我以为看起来像这样...（但它不起作用）

Me.MyListBox.AddItem(MyCol1 & ";" MyCol2, [2])

我只需要一点帮助理解这一行的语法即可。
在这方面有一点方向非常有帮助。
    

最终弄清楚了这一点。 可能有比这更好的答案，但这对我有用。

Answer 1

Me.MyListBox.AddItem Item:=MyCol1 & ";" MyCol2, Index:=x

X

是要将项目添加到列表框的任何位置。 请记住，0是ListBox的第一行。 从0开始，要替换列表项目＃3，我们可以做到这一点：

  dim iIndextItem = 3
  iIndextItem = 3 - 1
  
  Me.MyListBox.RemoveItem iIndextItem 
  Me.MyListBox.AddItem "new value 3", iIndextItem 

Answer 2

这种替换方法将使列表保持相同的长度（me.mylistbox.listcount）。