VPF::ListBox * и его события - Форум программистов

Gannibal

Дата 19.10.2006, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17

вот привожу пример кода, скоторым я работаю, проблема такова на форме есть ListBox и FlexGrid... когда форма загружаеться в листбокс записываются значения из базы данных и получаеться список имён, а мне надо чтобы при нажатии на какое либо значение в этом листбоксе появлялись значения в ФлексГриде из базы данных ... оно как бы работает этот код.. но только на самое первое значение в ЛистБоксе .. на остальнэ недеиствует, плз помагите .. сейчас сам попробую есть идея как сделать ну если будете первее чем я то огромное спасибо!

Код


Private Sub lstOa_Click()
Dim ii As Double

ii = lstOa.ListIndex
ii = ii + 1

Set DbUser = OpenDatabase(App.Path & "\Data\oa2.mdb")
Set RstUser = DbUser.OpenRecordset("SELECT * FROM tblOa ORDER BY ID ASC")

intCount = RstUser.RecordCount
RstUser.MoveFirst

For i = 0 To intCount - 1
  If ii = RstUser.Fields("ID2") Then
    With flxKontakt
      .TextMatrix(0, 1) = RstUser.Fields("dbSurname")
      .TextMatrix(1, 1) = RstUser.Fields("dbName")
      .TextMatrix(2, 1) = RstUser.Fields("dbOrganization")
      .TextMatrix(3, 1) = RstUser.Fields("dbAddress")
      .TextMatrix(4, 1) = RstUser.Fields("dbHomePhone")
      .TextMatrix(5, 1) = RstUser.Fields("dbMobilPhone")
      .TextMatrix(6, 1) = RstUser.Fields("dbWorkPhone")
      .TextMatrix(7, 1) = RstUser.Fields("dbMail")
      .TextMatrix(8, 1) = RstUser.Fields("dbICQ")
      .TextMatrix(9, 1) = RstUser.Fields("dbBirthday")
      .TextMatrix(10, 1) = "fotka"
    End With
  End If
  RstUser.MoveNext
Next i
End Sub

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

JUmPER

Дата 19.10.2006, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 22.8.2006

Репутация: 1
Всего: 3

а в базе есть кортежи со всеми возможными значениями ID2, которые могут быть индексами листбокса?

PS: а почему так сложно? можно же проше (и быстрее):

Код


Set RstUser = DbUser.OpenRecordset("SELECT * FROM tblOa WHERE ID2=" & ii)

--------------------

Существует 10 типов людей: те, которые понимают двоичную систему, и те, которые ее не понимаютСуществует 10 типов людей: те, кто понимают троичную систему, те, кто ее не понимают и те, кто путает ее с двоичной

Gannibal

Дата 19.10.2006, 17:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17

Цитата(JUmPER @ 19.10.2006, 15:51

)

а в базе есть кортежи со всеми возможными значениями ID2, которые могут быть индексами листбокса?

да есть всё на месте...

а со сложностью ты прав smile

моя ошибка.. всегда думаю как то гуммано и долго .. когда всё проще бывает smile

Добавлено @ 17:57
кстати после того как я убрал цикл всё заработало без проблемно smile

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

JUmPER

Дата 19.10.2006, 18:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 22.8.2006

Репутация: 1
Всего: 3

а! тогда может курсор serverside и поэтому RecordCount возвращал -1?

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »