Arrays 从大小为N的DataGridView填充单元格

Arrays 从大小为N的DataGridView填充单元格,arrays,vba,visual-studio,datagridview,Arrays,Vba,Visual Studio,Datagridview,我需要帮助用NxN数组中的随机1和0填充一些单元格。如图所示,它没有填充4x4数组 为了保持简单…循环浏览列并设置列标题。第一个循环执行此操作,但它也尝试添加不需要的行。取出DGV.Rows.Add和random stuff,因为这个循环只是添加列标题文本。对行执行与下一个for循环相同的操作,以设置行标题文本。缺少的是一个双循环,用于遍历行和列,并将每个单元格设置为随机布尔值。希望这是有道理的 For i = 0 To fila - 1 Dim curRow = DGV.Rows(i)

我需要帮助用NxN数组中的随机1和0填充一些单元格。如图所示,它没有填充4x4数组


为了保持简单…循环浏览列并设置列标题。第一个循环执行此操作,但它也尝试添加不需要的行。取出
DGV.Rows.Add
和random stuff,因为这个循环只是添加列标题文本。对行执行与下一个for循环相同的操作,以设置行标题文本。缺少的是一个双循环,用于遍历行和列,并将每个单元格设置为随机布尔值。希望这是有道理的

For i = 0 To fila - 1
  Dim curRow = DGV.Rows(i)
  For j = 0 To columna - 1
    r = CInt((Rnd() * 1))
    curRow.Cells(j).Value = r.ToString()
  Next
Next

为了保持简单…循环浏览列并设置列标题。第一个循环执行此操作,但它也尝试添加不需要的行。取出
DGV.Rows.Add
和random stuff,因为这个循环只是添加列标题文本。对行执行与下一个for循环相同的操作,以设置行标题文本。缺少的是一个双循环,用于遍历行和列,并将每个单元格设置为随机布尔值。希望这是有道理的

For i = 0 To fila - 1
  Dim curRow = DGV.Rows(i)
  For j = 0 To columna - 1
    r = CInt((Rnd() * 1))
    curRow.Cells(j).Value = r.ToString()
  Next
Next

谢谢,它工作得很好。我真的很感谢你的帮助谢谢,它工作得很好。我真的很感谢你的帮助