Мне нужна помощь в том, как изменить имя переменной с помощью цикла for.

Дим "DGV2Max" & J, я хочу это так.

Это должно минимизировать мою линию кодов.

   For j As Integer = 1 To 29 Step 1
       Dim DGV2Max1 As New DataGridViewTextBoxColumn
       DGV2Max1.DataPropertyName = "Max1"
       DGV2Max1.HeaderText = "Max1"
       DGV2Max1.Name = "Max1"
       DataGridView2.Columns.Add(DGV2Max1)
   Next
0
Ardie Fernandez Apple Kendee 15 Апр 2019 в 03:17

2 ответа

Лучший ответ

Если вы просто используете переменную для добавления ее в DataGridView2, не беспокойтесь об изменении имени переменной. Используйте переменную цикла и добавьте ее в свои свойства:

For j As Integer = 1 To 29 Step 1
   Dim DGV2MaxCol As New DataGridViewTextBoxColumn
   DGV2MaxCol.DataPropertyName = "Max" & j
   DGV2MaxCol.HeaderText = "Max" & j
   DGV2MaxCol.Name = "Max" & j
   DataGridView2.Columns.Add(DGV2MaxCol)
Next

Область действия этой переменной предназначена только для текущей итерации цикла, поэтому вы можете использовать ее на каждой итерации.

0
ItsPete 15 Апр 2019 в 00:24

Извините, я забыл добавить значения в элементы массива.

У меня есть ваш вопрос, теперь все, что вам нужно, это просто использовать такой массив:

Private Sub BtnAddNewColumns_Click(sender As Object, e As EventArgs) Handles BtnAddNewColumns.Click

    Dim MyArr(29) As String

    For i As Integer = 1 To 29 Step 1
        MyArr(i) = "DGVCol" & i
    Next

    For i As Integer = 1 To 29 Step 1
        Dim DGV2Max1 As New DataGridViewTextBoxColumn
        DGV2Max1.DataPropertyName = MyArr(i)
        DGV2Max1.HeaderText = MyArr(i)
        DGV2Max1.Name = MyArr(i)
        DataGridView2.Columns.Add(DGV2Max1)
    Next

End Sub

Я надеюсь, что это хорошо работает для вас, братан, ^ _ ^

0
MAMPRO 15 Апр 2019 в 00:50