Question

我需要一些有关如何使用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

Answer 1

如果您只是使用变量将其添加到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

该变量的作用域仅适用于循环的当前迭代，因此您可以在每次迭代中重复使用它。

Answer 2

对不起，我忘了在数组元素中添加值。

我得到了您的问题，现在您只需要使用这样的数组即可：

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

我希望这对您好，兄弟， ^ _ ^

如何使用for循环更改变量名

2 个答案: