VB.net默認datagridview數據

Question

所以我必須在 datagridview 中設置一些默認值，為此我使用以下代碼，它正在工作，但我想知道是否可以縮短代碼。

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    WindowState = FormWindowState.Maximized

    'default values for diameterdata
    With DataDiameters
        .Rows.Add(6)
        .Rows(0).Cells(0).Value = "DN20"
        .Rows(0).Cells(1).Value = "21,7"
        .Rows(1).Cells(0).Value = "DN25"
        .Rows(1).Cells(1).Value = "28,5"
        .Rows(2).Cells(0).Value = "DN32"
        .Rows(2).Cells(1).Value = "37,2"
        .Rows(3).Cells(0).Value = "DN40"
        .Rows(3).Cells(1).Value = "43,1"
        .Rows(4).Cells(0).Value = "DN50"
        .Rows(4).Cells(1).Value = "54,4"
        .Rows(5).Cells(0).Value = "DN65"
        .Rows(5).Cells(1).Value = "70,3"
        .Rows(6).Cells(0).Value = "DN80"
        .Rows(6).Cells(1).Value = "82,5"
        .Rows(7).Cells(0).Value = "DN100"
        .Rows(7).Cells(1).Value = "107,1"

    End With


End Sub

Answer 1

創建一個包含所有元素的數組。 然后，循環遍歷您的 DataGridView 單元格並設置包含在數組中的值。

Dim arrayItems() As String = {"DN20", "21,7", "DN25", "DN32", "37,2", "DN40", ......}
Dim indexArray As Integer = 0

    For i = 0 To 7
        For j = 0 To 1
            DataGridView1.Rows(i).Cells(j).Value = arrayItems(indexArray)
            indexArray += 1
        Next
    Next

Answer 2

  With DataDiameters
        .Rows.Add({"DN20", 21.7})
          etc
    End With

或者像這樣，如果您想將所有內容保留為字符串

        With DataDiameters
            .Rows.Add({"DN20", "21,7"})
              etc
        End With

如果您使用這樣的實際代碼制作網格，您會發現使用 gridview 會更容易

 Dim arrayColumn(2) As String
        With DataDiameters
            .Columns.Add("DNmaat", "DN maat")
            .Columns.Add("InnerDiameter", "Inner Diameter")
            .Rows.Add({"DN20", 21.7})
            ' arraycolumn(0)="DN20"
            ' arraycolumn(1)="21,7"
            ' or like this .Rows.Add(arrayColumn)
            'This will let you dynamically change everything at runtime

        End With

從長遠來看，因為您的網格不是硬編碼的，所以您可以在運行時更改所有內容。