如何突出显示MS-Access列表框行？

Question

如何突出显示MS-Access列表框行？我使用的是MS-Access 2007。我希望通过VBA突出显示多列列表框的第一行。我试过Me.LstSample.Selected(0) = True，但它不起作用。

代码：

Private Sub LstStation_AfterUpdate()
With Me.LstSample
    If IsNull(Me.LstStation) Then
        .RowSource = ""
    Else
        .RowSource = _
            "SELECT * FROM Samples WHERE S='" & Me.LstStation.Value & "'"
    End If
    Call .Requery
    If Not IsNull(Me.LstStation) Then
      Me.LstSample.Selected(0) = True
    End If
End With
End Sub

Answer 1

我完全剥离了代码并重置了控件的属性，现在它工作得很好！

我正在弄清楚它们的不同之处，并会让你们都知道。

Answer 2

尝试更改

Me.LstSample.Selected(0) = True

至

Me.lstSample.SetFocus
Me.lstSample.ListIndex = 0

我不确定为什么原始代码不能工作，但我倾向于使用ListIndex属性而不是Selected属性。

Answer 3

我总是设置列表框的值：

  Me!lstMyListBox = Me!lstMyListBox.ItemData(0)