Заполнение DataGridView по клику из TreeView

@Pavel50 · Регистрация: 26.07.2014

Студворк — интернет-сервис помощи студентам

Господа, имеется Form1, на ней TreeView с несколькими узлами, +подключенный источник данных (DataSource). Необходимо чтобы DataGridView заполнялся таблицей из базы данных по клику из TreeView. Ниже привожу код, он, естественно, не работает. Помогите, пожалуйста, как решить данную проблему?

p.s. Прошу прощения за кривую вставку, не разобрался как правильно вставить в сообщение код.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        If TreeView1.SelectedNode Is Nothing Then
            UserDataGridView.DataSource = Nothing
            Exit Sub
        End If
 
        Dim id As String
        id = TreeView1.SelectedNode.Name
        
If TreeView1.SelectedNode Is "Узел 0" Then
        UserDataGridView.DataSource = ("DataSet.таблица из БД")
        End If

@Пент Хаус · 26.07.2014, 21:36

А с какой стати объект TreeView1.SelectedNode должен быть эквивалентен строке "Узел 0", составляющей его свойство Name?
Помню такую фичу в Visual Basic времен 90-х годов прошлого века, но в VB.NET от нее почему-то отказались.

И точно ли у вас строка "Узел 0" содержится в свойстве Name, а не Text?
Как Name может содержать пробел?

Словом, уберите условие If TreeView1.SelectedNode. Попробуйте так. Если будет работать, разбирайтесь уже с ним.

@Pavel50 · 27.07.2014, 14:33 **[ТС]**

Спасибо за идею, но проблема решается немного не так. Ниже работающий код, может кому пригодится.

VB.NET
1
2
3
4
5
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        If TreeView1.SelectedNode.Name = "Узел0" Then
            UserDataGridView.DataSource = DataSet1.user
            Me.UserTableAdapter.Fill(Me.DataSet1.user)
        End If

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@Пент Хаус 0 / 0 / 1 Регистрация: 26.07.2014 Сообщений: 7
	26.07.2014, 21:36
	Сообщение было отмечено Памирыч как решение Решение А с какой стати объект TreeView1.SelectedNode должен быть эквивалентен строке "Узел 0", составляющей его свойство Name? Помню такую фичу в Visual Basic времен 90-х годов прошлого века, но в VB.NET от нее почему-то отказались. И точно ли у вас строка "Узел 0" содержится в свойстве Name, а не Text? Как Name может содержать пробел? Словом, уберите условие If TreeView1.SelectedNode. Попробуйте так. Если будет работать, разбирайтесь уже с ним. 0

Заполнение DataGridView по клику из TreeView

Решение