Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: DataGreed/ADO Добавлено: 17.03.03 21:19  

Автор вопроса:  Svetlana | ICQ: 262385618 

Как соединить два DataGreed чтобы перемещаясь по записям в главной таблице автоматически производилось перемещение курсора во второй?

В Delphi это легко сделать, а вот как в VB реализовать такую штуку не знаю. Помогите, плиз, это для курсового.. 

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Alex&r



Вопросов: 10
Ответов: 105
  Профиль | | #1 Добавлено: 18.03.03 19:28

Если я понял - имеется в виду отношение таблиц главная -подчинённая.

Я пользовался свойством Filter.

Создаются в базе таблицы со связанными полями.  С главной таблицей связан рекордсет - rsMain, c подчинённой rsSecond. Данные отображаются соответственно в гридах: dtgMain и dtgSecond.

Private Sub dtgMain_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
dim Filtr As String
Filtr = "<имя поля>" & " = '" & rsMain.Fields(<имя поля>;).Value & "'"
dtgMain.MarqueeStyle = dbgHighlightRow     ' Это для подсветки строки
rsSecond.Filter = Filtr                                            ' Накладываю фильтр
rsSecond.Sort = rsSecond.Fields("Function").Name & " ASC"  ' Сорт. подч. табл.
End If

<имя поля> - это поле, по которому связаны таблицы.

 

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам