![]() |
|
Модераторы: Akina |
![]()
|
|
| Mase4ka |
|
|||
|
Unregistered |
|
|||
|
||||
| Akina |
|
|||
|
Советчик ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 454 |
Ну и? делай... только на форме это запросто, а вот в таблице у тебя не выйдет, потому как ... ну потому как таблица.
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
| Mase4ka |
|
|||
|
Unregistered |
Ну да, забыла уточнить... Эти две таблицы на форме нахлдятся...
Private Sub DataCombo1_Click(Area As Integer) End Sub Первая таблица в DataGrid1, вторая - DataGrid2. В DataCombo все нормально, номера палат отображаются.... |
|||
|
||||
| Mase4ka |
|
|||
|
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 |
|||
|
||||
| DJW |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 4.1.2007 Репутация: нет Всего: нет |
Самое надежное это создать SQL-запрос, который по данным DataCombo будет тянуть нужные данные
что нибудь типа:
|
|||
|
||||
![]()
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |