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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> DataCombo 
:(
    Опции темы
Mase4ka
  Дата 26.12.2005, 17:41 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











smile В общем есть две таблицы. 1. Больные (кто в какой палате лежит, когда лег и когда выписался). 2. Палаты (№ палаты и вместимость). Есть DataCombo, в котором отображается номер палаты. Нужно чтобы при выборе номера отображались в таблице 1 все больные, которые там лежат.... smile
  Вверх
Akina
Дата 26.12.2005, 18:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Ну и? делай... только на форме это запросто, а вот в таблице у тебя не выйдет, потому как ... ну потому как таблица.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Mase4ka
Дата 26.12.2005, 18:56 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Ну да, забыла уточнить... Эти две таблицы на форме нахлдятся... smile Подскажите неразумному ребенку что писать для DataCombo?
Private Sub DataCombo1_Click(Area As Integer)
smile
End Sub
Первая таблица в DataGrid1, вторая - DataGrid2.
В DataCombo все нормально, номера палат отображаются....
  Вверх
Mase4ka
Дата 26.12.2005, 22:01 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











И еще один вопрос.... Как сделать чтобы при удалении к примеру записи №4 не получилось так, что после №3 сразу идет №5..... Т.е. все записи, начиная с пятой, должны подняться на одну позицию вверх... Таблицы открываются при помощи DataEnvironment? отображаются в DataGrid
На данный момент код такой:
Private Sub cmdDel_Click()
If Option1 = True Then
DataEnvironment1.rsBol.Delete
If Not DataEnvironment1.rsBol.EOF Then
DataEnvironment1.rsBol.MoveNext
Else
DataEnvironment1.rsBol.MoveLast
End If
ElseIf Option2 = True Then
DataEnvironment1.rsBolezn.Delete
If Not DataEnvironment1.rsBolezn.EOF Then
DataEnvironment1.rsBolezn.MoveNext
Else: DataEnvironment1.rsBolezn.MoveLast
End If
End If
End Sub
smile что и где нужно добавить?
  Вверх
DJW
Дата 7.1.2007, 22:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Самое надежное это создать SQL-запрос, который по данным DataCombo будет тянуть нужные данные
что нибудь типа:

Код

   ...
    'если табличка table открыта, то закроем её
    If DataEnvironment1.rstable.State = 1 Then DataEnvironment1.rstable.Close
    'запускаем SQL-запрос, скормив ему значения DataCombo1
    DataEnvironment1.sql (DataCombo1.Text)
   ...


PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

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


 




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


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

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