第1个回答 2019-08-15
Private Sub AddRow()
Dim arr(3, 5) As Object '二维数组,3和5分别是行和列,自己修改成需要的数
For i = 0 To UBound(arr) '根据一维下标来循环新增行
Dim arr1(UBound(arr, 2)) As Object '定义一个一维数组
For j = 0 To UBound(arr, 2)
If DataGridView7.ColumnCount < j Then '根据二维下标来循环新增列
DataGridView7.Columns.Add(j.ToString, j.ToString)
End If
arr1(j) = arr(i, j) '给一维数组赋值
Next
DataGridView7.Rows.Add(arr1) '根据得到的一位数组新增行
Next
End Sub