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)

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

3 个答案: