| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > VB6 > DataCombo |
| Автор: Mase4ka 26.12.2005, 17:41 |
 В общем есть две таблицы. 1. Больные (кто в какой палате лежит, когда лег и когда выписался). 2. Палаты (№ палаты и вместимость). Есть DataCombo, в котором отображается номер палаты. Нужно чтобы при выборе номера отображались в таблице 1 все больные, которые там лежат.... |
| Автор: Akina 26.12.2005, 18:20 |
| Ну и? делай... только на форме это запросто, а вот в таблице у тебя не выйдет, потому как ... ну потому как таблица. |
| Автор: Mase4ka 26.12.2005, 18:56 |
Ну да, забыла уточнить... Эти две таблицы на форме нахлдятся...  Подскажите неразумному ребенку что писать для DataCombo? Private Sub DataCombo1_Click(Area As Integer) End Sub Первая таблица в DataGrid1, вторая - DataGrid2. В DataCombo все нормально, номера палат отображаются.... |
| Автор: Mase4ka 26.12.2005, 22:01 |
| И еще один вопрос.... Как сделать чтобы при удалении к примеру записи №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 7.1.2007, 22:20 | ||
| Самое надежное это создать SQL-запрос, который по данным DataCombo будет тянуть нужные данные что нибудь типа:
|