Как показать строку списка MS-Access выделенной? - PullRequest
Новая
       42

Как показать строку списка MS-Access выделенной?

1 голос
/ 25 мая 2010

Как мне показать подсвеченную строку списка 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

Ответы [ 3 ]

1 голос
/ 25 мая 2010

Я полностью удалил код и сбросил свойства элементов управления, и теперь он работает нормально!

Я выясню, в чем различия, и дам вам знать.

0 голосов
/ 25 мая 2010

Я всегда устанавливаю значение списка: 

  Me!lstMyListBox = Me!lstMyListBox.ItemData(0)
0 голосов
/ 25 мая 2010

Попробуйте изменить 

Me.LstSample.Selected(0) = True

до 

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

Я не уверен, почему оригинальный код не работает, но я склонен использовать свойство ListIndex вместо свойства Selected.

...