Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Как осуществить фильтрацыю данных в List View Добавлено: 25.05.09 14:21  

Автор вопроса:  Mc.WOLF
Собственно вопрос в чем: есть List View в нем есть записи

    With ListView1
        .ListItems.Add , , "Micro Intel"
        .ListItems.Add , , "Micro Amd"
        .ListItems.Add , , "Memoria Usb"
        .ListItems.Add , , "Impresora Epson"
        .ListItems.Add , , "Monitor LG"
        .ListItems.Add , , "DVD Samsung"
    End With

, как мне отобразить только ту запись(записи) которые мне надо. Например, в данном случае, например отобразить в listView только записи Micro.
Заранее спасибо!!!

Ответить

  Ответы Всего ответов: 23  

Номер ответа: 1
Автор ответа:
 Arvitaly



ICQ: 301746136 

Вопросов: 28
Ответов: 549
  Web-сайт: okazani.ru
 Профиль | | #1 		Добавлено: 25.05.09 14:39
  1. Dim marks()
  2. Sub findLW(find As String)
  3.     If Len(find) > 0 Then
  4.         ListView1.ListItems.Clear
  5.         For i = 0 To UBound(marks)
  6.             If InStr(1, LCase(marks(i)), find) > 0 Then
  7.                     ListView1.ListItems.Add , , marks(i)
  8.             End If
  9.         Next
  10.     Else
  11.         MsgBox "Íå ââåäåí êðèòåðèé"
  12.     End If
  13. End Sub
  14.  
  15.  
  16. Private Sub Form_Load()
  17.     marks = Array("Micro Intel", "Micro Amd", "Memoria Usb", "Impresora Epson", "Monitor LG", "DVD Samsung")
  18. End Sub
  19.  
  20. Private Sub command1_Click()
  21.     findLW "micro"
  22. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 Mc.WOLF



Вопросов: 26
Ответов: 84
  Профиль | | #2 Добавлено: 25.05.09 15:45
Arvitaly ОГРМНОЕ СПАСИБО!!!

Ответить

Номер ответа: 3
Автор ответа:
 Mc.WOLF



Вопросов: 26
Ответов: 84
  Профиль | | #3 Добавлено: 25.05.09 20:43
Еще вопрос:
listView.ListItems.Add.SubItems(1) =.Fields("number";)
Как осуществить поиск в таком случае? Что-то немогу понять как!

Ответить

Номер ответа: 4
Автор ответа:
 Arvitaly



ICQ: 301746136 

Вопросов: 28
Ответов: 549
  Web-сайт: okazani.ru
 Профиль | | #4 		Добавлено: 25.05.09 20:56
.Fields("number"


Это к чему относится?

Ответить

Номер ответа: 5
Автор ответа:
 Mc.WOLF



Вопросов: 26
Ответов: 84
  Профиль | | #5 Добавлено: 25.05.09 21:29
Ну вот есть программа которая работает с базой данных Access и в listView отображаются данные

listView.ListItems.Add.SubItems(1) =.Fields("number";)
listView.ListItems.Add.SubItems(2) = .Fields("Firma";)
listView.ListItems.Add.SubItems(3) = .Fields("Cena";)

и в listView отображаются данные. Как осуществить фильтрацыю изменяющихся данных?

тоисть не так:
With ListView1
        .ListItems.Add , , "Micro Intel"
        .ListItems.Add , , "Micro Amd"
        .ListItems.Add , , "Memoria Usb"
        .ListItems.Add , , "Impresora Epson"
        .ListItems.Add , , "Monitor LG"
        .ListItems.Add , , ";DVD Samsung"
    End With

а так:

With ListView1
      .ListItems.Add.SubItems(1) =.Fields("number";)
      .ListItems.Add.SubItems(2) = .Fields("Firma";)
      .ListItems.Add.SubItems(3) = .Fields("Cena";)
End With
???

Ответить

Номер ответа: 6
Автор ответа:
 Arvitaly



ICQ: 301746136 

Вопросов: 28
Ответов: 549
  Web-сайт: okazani.ru
 Профиль | | #6 		Добавлено: 25.05.09 22:18
А по какому полю поиск?

Ответить

Номер ответа: 7
Автор ответа:
 Mc.WOLF



Вопросов: 26
Ответов: 84
  Профиль | | #7 Добавлено: 25.05.09 22:38
по .ListItems.Add.SubItems(2) = .Fields("Firma";)

Ответить

Номер ответа: 8
Автор ответа:
 Mc.WOLF



Вопросов: 26
Ответов: 84
  Профиль | | #8 Добавлено: 25.05.09 22:44
Arvitaly не подскажешь, как раскрасить Строки в ListView по определенным условиям? Например, если написано суббота, то цвет строки красный.

Ответить

Номер ответа: 9
Автор ответа:
 Arvitaly



ICQ: 301746136 

Вопросов: 28
Ответов: 549
  Web-сайт: okazani.ru
 Профиль | | #9 		Добавлено: 25.05.09 22:49
Слушай зачем тебе нужен listview??? Используй какой-нибудь грид там все удобнее

Ответить

Номер ответа: 10
Автор ответа:
 Mc.WOLF



Вопросов: 26
Ответов: 84
  Профиль | | #10 Добавлено: 25.05.09 22:53
Мизменять прийдется, не охота. Так как подскажешь?

Ответить

Номер ответа: 11
Автор ответа:
 Arvitaly



ICQ: 301746136 

Вопросов: 28
Ответов: 549
  Web-сайт: okazani.ru
 Профиль | | #11 		Добавлено: 25.05.09 23:01
Arvitaly не подскажешь, как раскрасить Строки в ListView по определенным условиям? Например, если написано суббота, то цвет строки красный.

Так давай по порядку, а лучше сделай картинку не очень понимаю что ты хочешь

1. В ListView особо строк нет
2. Где написано суббота

Изложи мысли яснее и как можно подробнее, но не путано

Ответить

Номер ответа: 12
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #12 		Добавлено: 25.05.09 23:07
Mc.WOLF, чтобы раскрасить нужно использовать CustomDraw

Ответить

Номер ответа: 13
Автор ответа:
 Mc.WOLF



Вопросов: 26
Ответов: 84
  Профиль | | #13 Добавлено: 25.05.09 23:08
    With ListView1
        .ListItems.Add , , "Пн"
        .ListItems.Add , , "Вт"
        .ListItems.Add , , "Ср"
        .ListItems.Add , , "Чт"
        .ListItems.Add , , "Пт"
        .ListItems.Add , , "Сб"
        .ListItems.Add , , "Вс"
    End With

как закрасить строки (.ListItems.Add , , "Сб";) и (.ListItems.Add , , "Вс";) красным?

Ответить

Номер ответа: 14
Автор ответа:
 Mc.WOLF



Вопросов: 26
Ответов: 84
  Профиль | | #14 Добавлено: 25.05.09 23:11
и помоги с фильтром .ListItems.Add.SubItems(2) = .Fields("Firma";)

Ответить

Номер ответа: 15
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #15 		Добавлено: 25.05.09 23:42
http://msdn.microsoft.com/en-us/library/bb761817(VS.85).aspx

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам