访问 VBA LISTBOX 寻址答案

【问题标题】：ACCESS VBA LISTBOX addressing访问 VBA LISTBOX 寻址
【发布时间】：2017-06-17 01:57:46
【问题描述】：

我想简单地在列表框上下移动选定的行。我有有效的代码 - 但我不明白为什么！ Selected 和 ListIndex 之间显然存在参考差异。如果有人能指出我忽略的（毫无疑问是基本的）点，我将不胜感激

Private Sub INPUT_AfterUpdate()

  If Me.INPUT = "up" Then Call go_up
  If Me.INPUT = "down" Then Call go_down

  Me.show = me.List59.Column(1)
  Me.INPUT = ""

End Sub

Private Sub go_up()

  Temp_var = Me.List59.ListIndex
  '!!!!!! why  do I not need to change Temp_var !!!
  me.List59.Selected(Temp_var) = True
End Sub

Private Sub go_down()
  Temp_var = Me.List59.ListIndex
  Temp_var = Temp_var + 2 '!!!!!! why 2 !!!

  me.List59.Selected(a) = True
End Sub

【问题讨论】：

标签： ms-access vba ms-access-2010

【解决方案1】：

为什么是 2 个？

因为 ListIndex 以 0 开头，而 Selected 以 1 开头。

所以 +1/-1 加 1 -> +2/0。

最后一行应该是：

Me.List59.Selected(Temp_var) = True

【讨论】：

最后一行更正有效 - 我简化了示例并忽略了该更改。我知道答案很简单！！！