Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/2: Рейтинг темы: голосов - 2, средняя оценка - 5.00
3 / 3 / 0
Регистрация: 27.10.2011
Сообщений: 66
1

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

20.11.2013, 15:09. Просмотров 467. Ответов 8
Метки нет (Все метки)

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


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
40
41
42
43
44
45
46
47
48
49
50
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
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2013, 15:09
Ответы с готовыми решениями:

Как мыслить в данном примере?
Скажите глядя на такой пример из Head first - изучаем Java: (если я правильно понимаю он должен...

Как в данном примере сделать 2 процесса параллельными?
Есть база данных на sql server 2008 с номерами телефонов и программа на delphi 2010, осуществляющая...

Объясните, как в данном примере работает friend
friend bool operator== (const String& firstStr, const String& secondStr); Если писать код без...

Объясните на данном примере как работать с композицией
Не могу понять как работать с композицией. А именно вывод интересует. Что я делаю не так?#include...

8
28 / 24 / 2
Регистрация: 13.10.2013
Сообщений: 58
20.11.2013, 16:11 2
Нужно пройтись по всем 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"
1
3 / 3 / 0
Регистрация: 27.10.2011
Сообщений: 66
20.11.2013, 16:26  [ТС] 3
vb.net
1
2
        Dim GoodControl As Label = Me.Controls.Find("Label1", False).First
        GoodControl.Text = "blablabla"
это в форме 6 поместить????
а еще идеи есть
0
28 / 24 / 2
Регистрация: 13.10.2013
Сообщений: 58
20.11.2013, 16:43 4
Я вот что имел ввиду:
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
40
41
42
43
44
45
46
47
48
49
50
51
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
1
dr_Morro
20.11.2013, 16:45
  #5

Не по теме:

Цитата Сообщение от sp4vlov Посмотреть сообщение
Хотя бывает так - главное сделать хоть как-то, чтобы работало. Пользователь великой программы доволен и ладно :-D
Так точно!!! ;)

0
828 / 636 / 100
Регистрация: 20.08.2013
Сообщений: 2,524
20.11.2013, 16:51 6
vb.net
1
2
Dim Labels() As Label = { Label1, Label2, Label3, Label4 }
Labels(i).Text = "YourText"
0
3 / 3 / 0
Регистрация: 27.10.2011
Сообщений: 66
20.11.2013, 16:59  [ТС] 7
дает ошибку "Последовательность не содержит элементов"
Необходимо чтобы в цикле информация передавалась в Form6.Label Х
Соответственно в Form6 имеется Label1 до Label20
Информация берется после сравнения из массива

Добавлено через 3 минуты
Добавлено через 5 минут
Не в обиду: если честно, твой код чистое извращение. Хотя бывает так - главное сделать хоть как-то, чтобы работало. Пользователь великой программы доволен и ладно :-D
возможно и так, сказать по правде это часть программы, делаю так как умею, так как только учусь
0
27 / 27 / 4
Регистрация: 14.02.2012
Сообщений: 135
20.11.2013, 18:59 8
попробуй так:
vb.net
1
2
3
4
5
        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 ...
1
3 / 3 / 0
Регистрация: 27.10.2011
Сообщений: 66
22.11.2013, 09:34  [ТС] 9
всем огромное спасибо разобрался
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.11.2013, 09:34

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

Как изменить значение const в данном примере?
Здравствуйте, я пишу свой интерпретатор. Дело в том, что Parser_impl является константой. Как в...

Объясните, как в данном примере функционирует работа операторов
Всем доброго времени суток. У меня такoй вoпрос не могу понять как в данном примере функционирует...

Вытаскивать работников по айди, а не по группам, как в данном примере
Приветствую, помогите плиз с заданием: нужно вытаскивать Работников по айди, а не по группам как в...

Объясните, как в данном примере работают виртуальные функции?
Такое дело надо обьяснить особенность виртуальной функции, типо как будет работать программа без...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.