Как приметить конкатенацию в данном примере

@vceznayka · Регистрация: 27.10.2011

Уважаемые форумчяне и модераторы, а также гуру
Возникла очередная проблема
Необходимо отправить информацию на Form6.Label X .Text
Понимаю что нужна конкатенация но как ее применить тут не знаю плиз подскажите

vb.net

Sub Btn_Click_Dushanbe(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim DB_alarm(20), DB_alarm_tame(20) As String
        Dim w As Integer = 0
        Dim Alarm As String
        Dim Alarm_on(2000), Alarm_Name(2000), Alarm_Severity(2000), Alarm_ID(2000), Alarm_Source(2000) As String
 
        DT.Clear() 'Очищаем таблицу
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM [Site_name_All]", Con) ' Указываем строку запроса и привязываем к соединению
        Con.Open() ' Открываем соединение
        SqlCom.ExecuteNonQuery() 'Выполняем запрос
        DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        DA.Fill(DT) ' Заполняем таблицу результатми
        Con.Close() ' Закрываем соединение
 
        '  оброщение к таблице
        DataMatrix = Me.ReadData(Sourcefile)
        For t As Integer = 1 To DataMatrix.Rows.Count - 1
            Alarm = Me.DataMatrix.Rows(t).Item(4) ' выводим нужную информацию
            If Alarm = "" Then
                Alarm_on(w) = Me.DataMatrix.Rows(t).Item(4)
                Alarm_Name(w) = Me.DataMatrix.Rows(t).Item(1)
                Alarm_Severity(w) = Me.DataMatrix.Rows(t).Item(2)
                Alarm_ID(w) = Me.DataMatrix.Rows(t).Item(5)
                Alarm_Source(w) = Me.DataMatrix.Rows(t).Item(10)
                w += 1
            End If
        Next
        Dim x As Integer = 1
        For i As Integer = 0 To Me.DT.Rows.Count - 1
            If Me.DT.Rows(i).Item(7) = sender.Top And Me.DT.Rows(i).Item(6) = sender.Left Then
                Form6.Label8.Text = Me.DT.Rows(i).Item(2)
                Form6.Label9.Text = Me.DT.Rows(i).Item(1)
                Form6.Label10.Text = Me.DT.Rows(i).Item(3)
                Form6.Label16.Text = Me.DT.Rows(i).Item(10)
                Form6.Label12.Text = Me.DT.Rows(i).Item(11)
                Form6.Label13.Text = Me.DT.Rows(i).Item(12)
                Form6.Label14.Text = Me.DT.Rows(i).Item(13)
                For t As Integer = 0 To w
                    If Me.DT.Rows(i).Item(2) = Alarm_Source(t) Then
        ----------- вот тут и возникла проблема--------------------
      Form6.Label(& x & .Text)= Me.DataMatrix.Rows(t).Item(1)
                        x += 1
                    End If
                Next
                Exit For
            End If
        Next
        Me.Visible = True
        Form6.Show()
    End Sub

@sp4vlov · 20.11.2013, 16:11

Нужно пройтись по всем label, так?

Добавлено через 10 минут
В отличии от VB5-6 в VB.NET отсутствует возможность создавать "массив" Label через графический интерфейс IDE.
Можно создать коллекцию элементов для правки, либо временно добавлять в коллекцию нужные контролы.

Либо искать элемент на форме по его Name:

vb.net

1 2	Dim GoodControl As Label = Me.Controls.Find("Label1", False).First GoodControl.Text = "blablabla"

@vceznayka · 20.11.2013, 16:26 **[ТС]**

vb.net

1 2	Dim GoodControl As Label = Me.Controls.Find("Label1", False).First GoodControl.Text = "blablabla"

это в форме 6 поместить????
а еще идеи есть

@sp4vlov · 20.11.2013, 16:43

Я вот что имел ввиду:

vb.net

Sub Btn_Click_Dushanbe(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim DB_alarm(20), DB_alarm_tame(20) As String
        Dim w As Integer = 0
        Dim Alarm As String
        Dim Alarm_on(2000), Alarm_Name(2000), Alarm_Severity(2000), Alarm_ID(2000), Alarm_Source(2000) As String
 
        DT.Clear() 'Очищаем таблицу
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM [Site_name_All]", Con) ' Указываем строку запроса и привязываем к соединению
        Con.Open() ' Открываем соединение
        SqlCom.ExecuteNonQuery() 'Выполняем запрос
        DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        DA.Fill(DT) ' Заполняем таблицу результатами
        Con.Close() ' Закрываем соединение
 
        '  обращение к таблице
        DataMatrix = Me.ReadData(Sourcefile)
        For t As Integer = 1 To DataMatrix.Rows.Count - 1
            Alarm = Me.DataMatrix.Rows(t).Item(4) ' выводим нужную информацию
            If Alarm = "" Then
                Alarm_on(w) = Me.DataMatrix.Rows(t).Item(4)
                Alarm_Name(w) = Me.DataMatrix.Rows(t).Item(1)
                Alarm_Severity(w) = Me.DataMatrix.Rows(t).Item(2)
                Alarm_ID(w) = Me.DataMatrix.Rows(t).Item(5)
                Alarm_Source(w) = Me.DataMatrix.Rows(t).Item(10)
                w += 1
            End If
        Next
        Dim x As Integer = 1
        For i As Integer = 0 To Me.DT.Rows.Count - 1
            If Me.DT.Rows(i).Item(7) = sender.Top And Me.DT.Rows(i).Item(6) = sender.Left Then
                Form6.Label8.Text = Me.DT.Rows(i).Item(2)
                Form6.Label9.Text = Me.DT.Rows(i).Item(1)
                Form6.Label10.Text = Me.DT.Rows(i).Item(3)
                Form6.Label16.Text = Me.DT.Rows(i).Item(10)
                Form6.Label12.Text = Me.DT.Rows(i).Item(11)
                Form6.Label13.Text = Me.DT.Rows(i).Item(12)
                Form6.Label14.Text = Me.DT.Rows(i).Item(13)
                For t As Integer = 0 To w
                    If Me.DT.Rows(i).Item(2) = Alarm_Source(t) Then
        ----------- вот тут и возникла проблема--------------------
        Dim GoodControl As Label = Me.Controls.Find("Label" & x, False).First
        GoodControl.Text = GoodControl.Text & Me.DataMatrix.Rows(t).Item(1)
                        x += 1
                    End If
                Next
                Exit For
            End If
        Next
        Me.Visible = True
        Form6.Show()
    End Sub

Добавлено через 59 секунд

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

это в форме 6 поместить????
а еще идеи есть

А вот что именно нужно - не понятно. Опиши смысл задачи.

Добавлено через 5 минут
Не в обиду: если честно, твой код чистое извращение. Хотя бывает так - главное сделать хоть как-то, чтобы работало. Пользователь великой программы доволен и ладно :-D

@dr_Morro · 20.11.2013, 16:45

Не по теме:

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

Хотя бывает так - главное сделать хоть как-то, чтобы работало. Пользователь великой программы доволен и ладно :-D

Так точно!!! ;)

@Qwertiy · 20.11.2013, 16:51

vb.net

1 2	Dim Labels() As Label = { Label1, Label2, Label3, Label4 } Labels(i).Text = "YourText"

@vceznayka · 20.11.2013, 16:59 **[ТС]**

дает ошибку "Последовательность не содержит элементов"
Необходимо чтобы в цикле информация передавалась в Form6.Label Х
Соответственно в Form6 имеется Label1 до Label20
Информация берется после сравнения из массива

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

Добавлено через 5 минут
Не в обиду: если честно, твой код чистое извращение. Хотя бывает так - главное сделать хоть как-то, чтобы работало. Пользователь великой программы доволен и ладно :-D

возможно и так, сказать по правде это часть программы, делаю так как умею, так как только учусь

@MLF · 20.11.2013, 18:59

попробуй так:

vb.net

        For Each ctrl As Control In Form6.Controls
            If TypeOf ctrl Is Label Then
                ctrl.Text = Me.DataMatrix.Rows(t).Item(1)
            End If
        Next

Данный код поменяет свойство Text всех контролов типа Label на Form6.
Если нужна фильтрация по имени:

vb.net

1	If ctrl.Name.StartsWith("Label") Then ...

@vceznayka · 22.11.2013, 09:34 **[ТС]**

всем огромное спасибо разобрался

@dr_Morro
	20.11.2013, 16:45 #5
	Не по теме: Сообщение от sp4vlov Хотя бывает так - главное сделать хоть как-то, чтобы работало. Пользователь великой программы доволен и ладно :-D Так точно!!! ;) 0

@vceznayka 3 / 3 / 0 Регистрация: 27.10.2011 Сообщений: 66
	20.11.2013, 16:59 [ТС]	7
	дает ошибку "Последовательность не содержит элементов" Необходимо чтобы в цикле информация передавалась в Form6.Label Х Соответственно в Form6 имеется Label1 до Label20 Информация берется после сравнения из массива Добавлено через 3 минуты Добавлено через 5 минут Не в обиду: если честно, твой код чистое извращение. Хотя бывает так - главное сделать хоть как-то, чтобы работало. Пользователь великой программы доволен и ладно :-D возможно и так, сказать по правде это часть программы, делаю так как умею, так как только учусь 0

@vceznayka 3 / 3 / 0 Регистрация: 27.10.2011 Сообщений: 66
	22.11.2013, 09:34 [ТС]	9
	всем огромное спасибо разобрался 0

Опции темы