| |
|
|
| | Как программно встать на нужную строку внутри ListView,
если известен ID строки? (один из параметров строки, ды все параметры известны)
Me!lsvODE.SelectedItem.SubItems(6)
|
| |
| |
| |
| |
|
|
| | можно так
Private Sub find_RecordByID(ID As Variant)
Dim k As Integer
If lv.ListItems.Count = 0 Then Exit Sub
For k = 1 To lv.ListItems.Count
If lv.ListItems(k) = ID Then
lv.SelectedItem.EnsureVisible
lv.ListItems(k).Selected = True
Exit For
End If
Next k
End Sub
|
| |
| |
| |
| |
|
|
| | Спасибо!!! 
попробую так...  | |
| |
| |
| |
|
|
| | Ничё не понимаю 
k = FRM_Okno.lsvODE.SelectedItem
|
k = "шапка"
If k <> "" Then
For kk = 1 To FRM_Okno.lsvODE.ListItems.Count
If FRM_Okno.lsvODE.ListItems(kk) = k Then
FRM_Okno.lsvODE.SelectedItem.EnsureVisible
FRM_Okno.lsvODE.ListItems(kk).Selected = True
Exit For
End If
Next kk
End If
|
если 2 = "шапка" тогда найдено
If FRM_Okno.lsvODE.ListItems(kk) = k Then | |
| |
| |
| |
|
|
| | Вощем получается вот так
Me!LV_COMODITY.ListItems(Me!LV_COMODITY.SelectedItem.Index).Selected = True
Me!LV_COMODITY.SelectedItem.SubItems(4) = STR_ID_DISCONT 'скидка
|
Это когда возишся с конкретной записью
или
Me!LV_COMODITY.ListItems(10).Selected = True
Me!LV_COMODITY.SelectedItem.SubItems(4) = STR_ID_DISCONT 'скидка
|
когда передаёш параметр (10) индекса строки. | |
| |
| |
