Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> необновляется DataCombo, после фильтра DataCombo необновляется 
:(
    Опции темы
Golem
  Дата 24.5.2005, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
использую DataCombo с Datalist Control-а
после того как
Код

    adoRs.Filter = StrS
    Set cmbUser.DataSource = adoRs
    Set cmbUser.RowSource = adoRs
    cmbUser.BoundColumn = "id"
    cmbUser.ListField = "FIO"
    cmbUser.ReFill
    cmbUser.Refresh

DataCombo непоказывает отфильтрованное поле, а всю информацию, как будто фильтра и небыло. я и параллелно DataGrid подключил, сним все нормально, филтр работает. smile
незнаю что делать
PM MAIL   Вверх
Golem
Дата 25.5.2005, 07:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
smile ктонибудь вообще использовал этот контрол smile
PM MAIL   Вверх
Gannibal
Дата 25.5.2005, 07:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 18
Всего: 17
Цитата(Golem @ 25.5.2005, 06:01)
ктонибудь вообще использовал этот контрол


даже незнаю может и нет, может и да прикрепи целый код ... чтобы посмотреть ;) может тогда сможем помочь а то я непонял из него что здесь что., хотя понятно но не очень


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Golem
  Дата 25.5.2005, 08:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Дело в том что есть таблица(adors) студентов со своими признаками (курс, группа, ID). CmbCourse отфильтровывает по курсу , а CmbGroup по группе или оба одновременно.
при этом результат фильтров(имена определенных стдентов, определенных групп иопределеного курса) должен отражатся в cmbUser(DataCombo).НО этого не происходит cmbUser показывает имена всех студентов.


Код

Private Sub CmbCourse_Click()
    strCrs = "(course=" & Str(CmbCourse.ListIndex + 1) & ")"
    useFilter
End Sub
Private Sub CmbGroup_Click(Area As Integer)

    If Not (CmbGroup.SelectedItem) Then
        strGrp = "(group=" & Str(CmbGroup.SelectedItem) & ")"
        useFilter
   End If

End Sub
Sub useFilter()
    Dim StrS As String
    If Trim(strCrs) <> "" Then
        If Trim(strGrp) <> "" Then
            StrS = strGrp & " and " & strCrs
        Else
            StrS = strCrs
        End If

    Else
        StrS = strGrp
    End If

    adoRs.Filter = StrS
 
    Set cmbUser.DataSource = adoRs
    Set cmbUser.RowSource = adoRs
    cmbUser.BoundColumn = "id"
    cmbUser.ListField = "FIO"
            
    cmbUser.ReFill
    cmbUser.Refresh
End Sub

дале вложенный файл с рисунком этой формы

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  scr.JPG
PM MAIL   Вверх
Gannibal
Дата 26.5.2005, 07:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 18
Всего: 17
попробуй поставить cmbUser.Update там где туебя cmbUser.Refresh конечно может что то непонял.. .. невыспался smile

Код

    adoRs.Filter = StrS
    Set cmbUser.DataSource = adoRs
    Set cmbUser.RowSource = adoRs
    cmbUser.BoundColumn = "id"
    cmbUser.ListField = "FIO"
    cmbUser.ReFill
    cmbUser.Update
    cmbUser.MoveFirst


Это сообщение отредактировал(а) M.E.G.U.S - 26.5.2005, 07:45


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Golem
Дата 26.5.2005, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(M @ 26.5.2005, 07:40)
попробуй поставить cmbUser.Update там где туебя cmbUser.Refresh конечно может что то непонял.. .. невыспался

может...
Update метода у DataCombo просто нет smile
PM MAIL   Вверх
Gannibal
Дата 26.5.2005, 17:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 18
Всего: 17
Цитата(Golem @ 26.5.2005, 10:24)
Update метода у DataCombo просто нет smile


а точно извеняюсь .. перепутал..




--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0836 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.