Переписать процедуру с DatagridView в Datagrid

@_Alf_ · Регистрация: 18.12.2018

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

Всем привет!
Есть процедура, работающая С Datagridveiw

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
    Private Sub Add_IP(ByVal values As List(Of String))
 
        If Me.DataGridView1.InvokeRequired Then
            Dim d As New SetDatapointCallback(AddressOf Add_IP)
            Me.Invoke(d, New Object() {values})
        Else
            Dim editrow As Boolean = False
            For Each row As DataGridViewRow In DataGridView1.Rows
                If row.Cells(0).Value.ToString() = values(0) Then
                    For i As Integer = 1 To values.Count - 1
                        If values(i) <> "-" Then
                            row.Cells(i).Value = values(i)
                        End If
                        If i = 3 AndAlso values(3) = "Available" Then
                            row.Cells(i).Style.BackColor = Color.LightGreen
                        End If
                        If i = 4 AndAlso values(4) = "Available" Then
                            row.Cells(i).Style.BackColor = Color.LightGreen
                        End If
                        If i = 5 AndAlso values(5) = "HTTPS Available" Then
                            row.Cells(i).Style.BackColor = Color.LightGreen
                        End If
                        If i = 5 AndAlso values(5) = "Available" Then
                            row.Cells(i).Style.BackColor = Color.Yellow
                        End If
                    Next i
                    editrow = True
                End If
            Next row
 
            If Not editrow Then
                Try
                    DataGridView1.Rows.Add(values(0), values(1), values(2), values(3), values(4), values(5))
                Catch ex As Exception
                    Exit Sub
                End Try
            End If
        End If
    End Sub

Как можно преобразовать и запустить эту процедуру с другим элементом управления - обычным DataGeid (предшественником Datagridview)?

Заранее спасибо за помощь!

@ovva · 25.07.2019, 14:47

Сообщение от _Alf_

как удалить вложенную таблицу и создать ее заново?

Не понял зачем удалять чтобы заново создать. В чем смысл этой операции?
М.б. вы хотите наполнить ее новым содержанием. В данном случае содержимое таблицы определяется соответствующим txt-файлом.

VB.NET
1
2
3
4
5
6
7
'до определения MasterControl
'удаляем таблицу Wor из коллекции ds.Tables
ds.Tables.Remove("Wor")
'формируем таблицу из txt-файла
LoadToTable("workers.txt", dtD)
'добавляем новую таблицу в коллекцию
ds.Tables.Add(dtD)

Можно добавить еще одну (несколько) таблицу Detail к уже имеющейся

VB.NET
1
2
3
ds.Tables.Add(dtD2)
'...
md.childView.Add("Wor2", "Сотрудники2")

@_Alf_ · 25.07.2019, 15:01 **[ТС]**

ovva, ну а все-таки? можно как то удалить и создать заново?

@ovva · 25.07.2019, 15:13

_Alf_, я же написал как удалить таблицу, сформировать новую таблицу и добавить ее в коллекцию. Если можно расшифруйте что вы понимаете под "создать заново".

@_Alf_ · 29.07.2019, 11:49 **[ТС]**

ovva, Возможно я не правильно объясняюсь..
Попробую более подробно. Смортите..
При клике на на стрелочку по определенной записи открывается вложенная таблица. Так вот. мне необходимо что бы при клике на другую запись вложенная таблица отчищалась полностью и данные подтягивались заново. у меня получается вот так: (см скрин)

@ovva · 29.07.2019, 11:57

Сообщение от _Alf_

у меня получается вот та

Выложите ваш проект.

@_Alf_ · 29.07.2019, 12:34 **[ТС]**

ovva,

@ovva · 29.07.2019, 14:17

Немного подправил (насколько понял вашу идею).

@_Alf_ · 29.07.2019, 14:49 **[ТС]**

ovva, не совсем так.
мне надо что бы при клике на запись в dgvMasDet моделировалась уже новая таблица с данными из labelов...
у меня сделано это, только каждый раз при клике создавались новые (как в посте : https://www.cyberforum.ru/post13737966.html) см. скрин

@ovva · 29.07.2019, 17:08

Сообщение от _Alf_

что бы при клике на запись в dgvMasDet моделировалась уже новая таблица с данными из labelов

Этого я не понимаю. Сделать это можно, но при этом использование конструкции Master-Detail теряет всякий смысл.

@_Alf_ · 29.07.2019, 17:25 **[ТС]**

Сообщение от ovva

Этого я не понимаю. Сделать это можно, но при этом использование конструкции Master-Detail теряет всякий смысл.

А все таки?, как это можно сделать? Заранее спасибо.

@ovva · 29.07.2019, 17:44

Сообщение от _Alf_

А все таки?, как это можно сделать?

Кликните здесь для просмотра всего текста

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    dtM = New DataTable("Dep")
    dtM.Columns.Add("IdDep", System.Type.GetType("System.Int32"))
    dtM.Columns.Add("Наименование", System.Type.GetType("System.String"))
    dtM.Columns.Add("Комментарий", System.Type.GetType("System.String"))
    dtM.Rows.Add("1", "ЗаписьСтроки1", "ЗаписьСтроки1-2")
    dtM.Rows.Add("2", "ЗаписьСтроки2", "ЗаписьСтроки2-2")
    dtM.Rows.Add("3", "ЗаписьСтроки3", "ЗаписьСтроки3-2")
    DataGridView1.DataSource = dtM
    ds = New DataSet
    ds.Tables.Add(dtM.Copy)
    Panel1.Controls.Clear()
    md = Nothing
    Refresh()
    md = New MasterControl(ds, 1)
    Panel1.Controls.Add(md)
    md.setParentSource("Dep", "IdDep")
    AddHandler md.CellClick, AddressOf CellContent_Click
End Sub
Private Sub CellContent_Click(sender As Object, e As DataGridViewCellEventArgs)
    If md.Rows(e.RowIndex).Cells(0).Value Is Nothing Then Return
    If md.childView.TabPages.Count > 0 Then md.childView.TabPages.RemoveAt(0)
    If ds.Tables.Count > 1 Then ds.Tables.RemoveAt(1)
    Dim rn As New Random
    dtD = New DataTable("Wor")
    dtD.Columns.Add("IdDep", System.Type.GetType("System.Int32"))
    dtD.Columns.Add("ФамилияИО", System.Type.GetType("System.String"))
    dtD.Columns.Add("Адрес", System.Type.GetType("System.String"))
    dtD.Columns.Add("РабТелефон", System.Type.GetType("System.String"))
    Label1.Text = (md.Rows(e.RowIndex).Cells(0).Value).ToString
    Label2.Text = (rn.Next(1, 11)).ToString
    Label3.Text = (rn.Next(10, 101)).ToString
    Label4.Text = (rn.Next(100, 1001)).ToString
    dtD.Rows.Add(CInt(Label1.Text), Label2.Text, Label3.Text, Label4.Text)
    DataGridView2.DataSource = dtD
    ds.Tables.Add(dtD.Copy)
    md.childView.Add("Wor", "Сотрудники")
End Sub

@_Alf_ · 29.07.2019, 19:39 **[ТС]**

ovva, а можно данные грузить напрямую, без использования datagridview?

@ovva · 29.07.2019, 20:02

Сообщение от _Alf_

можно данные грузить напрямую, без использования datagridview?

Сетки здесь имеют вспомогательное (иллюстративное) назначение. Если не нужно, то закомментируйте в коде все строки с DataGridView.

@_Alf_ · 30.07.2019, 14:37 **[ТС]**

ovva, а как можно добавить еще одну дочернюю таблицу?

Сообщение от ovva

Private Sub CellContent_Click(sender As Object, e As DataGridViewCellEventArgs)
* * If md.Rows(e.RowIndex).Cells(0).Value Is Nothing Then Return
* * If md.childView.TabPages.Count > 0 Then md.childView.TabPages.RemoveAt(0)
* * If ds.Tables.Count > 1 Then ds.Tables.RemoveAt(1)
* * Dim rn As New Random
* * dtD = New DataTable("Wor")
* * dtD.Columns.Add("IdDep", System.Type.GetType("System.Int32"))
* * dtD.Columns.Add("ФамилияИО", System.Type.GetType("System.String"))
* * dtD.Columns.Add("Адрес", System.Type.GetType("System.String"))
* * dtD.Columns.Add("РабТелефон", System.Type.GetType("System.String"))
* * Label1.Text = (md.Rows(e.RowIndex).Cells(0).Value).ToS tring
* * Label2.Text = (rn.Next(1, 11)).ToString
* * Label3.Text = (rn.Next(10, 101)).ToString
* * Label4.Text = (rn.Next(100, 1001)).ToString
* * dtD.Rows.Add(CInt(Label1.Text), Label2.Text, Label3.Text, Label4.Text)
* * DataGridView2.DataSource = dtD
* * ds.Tables.Add(dtD.Copy)
* * md.childView.Add("Wor", "Сотрудники")
End Sub

Добавлено через 19 минут

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 Private dtM, dtD, dtD1 As DataTable
...
  Private Sub CellContent_Click(sender As Object, e As DataGridViewCellEventArgs)
 
        If md.Rows(e.RowIndex).Cells(6).Value Is Nothing Then Return
        If md.childView.TabPages.Count > 0 Then md.childView.TabPages.RemoveAt(0)
        If ds.Tables.Count > 2 Then ds.Tables.RemoveAt(2)
 
        dtD = New DataTable("Wor")
        dtD.Columns.Add("Id", System.Type.GetType("System.String"))
        dtD.Columns.Add("Фамилия", System.Type.GetType("System.String"))
        dtD.Columns.Add("Имя", System.Type.GetType("System.String"))
        dtD.Columns.Add("Отчество", System.Type.GetType("System.String"))
       
 
        dtD1 = New DataTable("Wor1")
        dtD1.Columns.Add("Id", System.Type.GetType("System.String"))
        dtD1.Columns.Add("Город", System.Type.GetType("System.String"))
        dtD1.Columns.Add("Улица", System.Type.GetType("System.String"))
        dtD1.Columns.Add("дом", System.Type.GetType("System.String"))
        dtD1.Columns.Add("Квартира", System.Type.GetType("System.String"))
 
        Label1.Text = (md.Rows(e.RowIndex).Cells(0).Value).ToString
        
        
        dtD.Rows.Add(Label1.Text, Label3.Text, Label4.Text, Label5.Text) 
        dtD1.Rows.Add(Label1.Text, Label6.Text, Label7.Text, Label8.Text, Label9.Text)
 
        ds.Tables.Add(dtD.Copy)
        ds.Tables.Add(dtD1.Copy)
        md.childView.Add("Wor", "Info 1") '
        md.childView.Add("Wor1", "Info2")

ошибка:
System.Data.DuplicateNameException: "DataTable с именем "Wor" уже принадлежит этому DataSet."

Что не так?:

Добавлено через 1 час 39 минут
Мне кажется, что ошибка в этом куске кода:

VB.NET
1
2
3
If md.Rows(e.RowIndex).Cells(6).Value Is Nothing Then Return
        If md.childView.TabPages.Count > 0 Then md.childView.TabPages.RemoveAt(0)
        If ds.Tables.Count > 1 Then ds.Tables.RemoveAt(1)

играюсь с ним
Либо такая ошибка:
System.Data.DuplicateNameException: "DataTable с именем "Wor1" уже принадлежит этому DataSet."
в обоих случаях подсвечивает вот эти строки

VB.NET
1
2
ds.Tables.Add(dtD.Copy)
        ds.Tables.Add(dtD1.Copy)

@ovva · 30.07.2019, 14:44

Попробуйте так

Кликните здесь для просмотра всего текста

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub CellContent_Click(sender As Object, e As DataGridViewCellEventArgs)
    Label1.Text = (md.Rows(e.RowIndex).Cells(0).Value).ToString
    'Detail1
    rndLabel()
    Dim pgText As String = "List1"
    Dim dt1 As DataTable = AddDetail("Det1", {"F1", "A1", "T1"}, {"System.String", "System.String", "System.String"})
    If ds.Tables.Contains(dt1.TableName) Then ds.Tables.Remove(dt1.TableName)
    ds.Tables.Add(dt1)
    If md.childView.TabPages.ContainsKey(pgText) Then md.childView.TabPages.RemoveByKey(pgText)
    md.childView.Add(dt1.TableName, pgText)
    md.childView.TabPages(md.childView.TabPages.Count - 1).Name = pgText
    'Detail2
    rndLabel()
    pgText = "List2"
    Dim dt2 As DataTable = AddDetail("Det2", {"F2", "A2", "T2"}, {"System.String", "System.String", "System.String"})
    If ds.Tables.Contains(dt2.TableName) Then ds.Tables.Remove(dt2.TableName)
    ds.Tables.Add(dt2)
    If md.childView.TabPages.ContainsKey(pgText) Then md.childView.TabPages.RemoveByKey(pgText)
    md.childView.Add(dt2.TableName, pgText)
    md.childView.TabPages(md.childView.TabPages.Count - 1).Name = pgText
End Sub
Private Function AddDetail(ByVal tbName As String, ByVal colNames() As String, ByVal colTypes() As String) As DataTable
    Dim dt As DataTable
    dt = New DataTable(tbName)
    dt.Columns.Add("IdDep", System.Type.GetType("System.Int32"))
    For i = 0 To colNames.Length - 1 'здесь д.б. colNames.Length=4
        dt.Columns.Add(colNames(i), System.Type.GetType(colTypes(i)))
    Next
    dt.Rows.Add(CInt(Label1.Text), Label2.Text, Label3.Text, Label4.Text)
    Return dt
End Function
Private Sub rndLabel()
    Dim rn As New Random
    Label2.Text = (rn.Next(1, 11)).ToString
    Label3.Text = (rn.Next(10, 101)).ToString
    Label4.Text = (rn.Next(100, 1001)).ToString
End Sub

@_Alf_ · 30.07.2019, 15:23 **[ТС]**

ovva, вроде работает. по аналогии, как я понимаю можно и 3 и 4 таблицу добавить?
а как во вторую дочернюю таблицу запихнуть данные с других lablel?, label5, label6, label7?

Добавлено через 26 минут
вышел из ситуации:
добавив еще функцию
Private Function AddDetail1(ByVal tbName As String, ByVal colNames() As String, ByVal colTypes() As String) As DataTable

@ovva · 30.07.2019, 15:41

Сообщение от _Alf_

по аналогии, как я понимаю можно и 3 и 4 таблицу добавить?

Да.

Сообщение от _Alf_

как во вторую дочернюю таблицу запихнуть данные с других lablel?, label5, label6, label7?

Добавьте в параметры rndLabel список Labels

VB.NET
1
2
3
4
5
6
Private Sub rndLabel(ByVal Labels() As Label)
    Dim rn As New Random
    Labels(0).Text = (rn.Next(1, 11)).ToString
    Labels(1).Text = (rn.Next(10, 101)).ToString
    Labels(2).Text = (rn.Next(100, 1001)).ToString
End Sub

Тогда вызов процедуры будет выглядеть так

VB.NET
1
2
3
rndLabel({Label2, Label3, Label4})
'…
rndLabel({Label5, Label6, Label7})

Аналогично нужно внести изменения в процедуру AddDetail.

Сообщение от _Alf_

добавив еще функцию

Это ни к чему.

@_Alf_ · 30.08.2019, 09:17 **[ТС]**

ovva, а возможно эту dll сделать доступной для использования под дотнет помладше (3.5 или 4.0)?

@ovva · 30.08.2019, 14:07

_Alf_, попробуйте вариант (NET 4.0)

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@_Alf_ 2 / 2 / 0 Регистрация: 18.12.2018 Сообщений: 392
	25.07.2019, 15:01 [ТС]
	ovva, ну а все-таки? можно как то удалить и создать заново? 0

@ovva 4709 / 3662 / 857 Регистрация: 02.02.2013 Сообщений: 3,518 Записей в блоге: 2
	25.07.2019, 15:13
	_Alf_, я же написал как удалить таблицу, сформировать новую таблицу и добавить ее в коллекцию. Если можно расшифруйте что вы понимаете под "создать заново". 0

@_Alf_ 2 / 2 / 0 Регистрация: 18.12.2018 Сообщений: 392
	29.07.2019, 11:49 [ТС]
	ovva, Возможно я не правильно объясняюсь.. Попробую более подробно. Смортите.. При клике на на стрелочку по определенной записи открывается вложенная таблица. Так вот. мне необходимо что бы при клике на другую запись вложенная таблица отчищалась полностью и данные подтягивались заново. у меня получается вот так: (см скрин) Миниатюры Изображения 0

@_Alf_ 2 / 2 / 0 Регистрация: 18.12.2018 Сообщений: 392
	29.07.2019, 14:49 [ТС]
	ovva, не совсем так. мне надо что бы при клике на запись в dgvMasDet моделировалась уже новая таблица с данными из labelов... у меня сделано это, только каждый раз при клике создавались новые (как в посте : https://www.cyberforum.ru/post13737966.html) см. скрин 0

@_Alf_ 2 / 2 / 0 Регистрация: 18.12.2018 Сообщений: 392
	29.07.2019, 19:39 [ТС]
	ovva, а можно данные грузить напрямую, без использования datagridview? 0

@_Alf_ 2 / 2 / 0 Регистрация: 18.12.2018 Сообщений: 392
	30.07.2019, 15:23 [ТС]
	ovva, вроде работает. по аналогии, как я понимаю можно и 3 и 4 таблицу добавить? а как во вторую дочернюю таблицу запихнуть данные с других lablel?, label5, label6, label7? Добавлено через 26 минут вышел из ситуации: добавив еще функцию Private Function AddDetail1(ByVal tbName As String, ByVal colNames() As String, ByVal colTypes() As String) As DataTable 0

@_Alf_ 2 / 2 / 0 Регистрация: 18.12.2018 Сообщений: 392
	30.08.2019, 09:17 [ТС]
	ovva, а возможно эту dll сделать доступной для использования под дотнет помладше (3.5 или 4.0)? Миниатюры 0

Переписать процедуру с DatagridView в Datagrid

Решение