vb.netのdatagridviewに複数の行を動的に追加する

Question

Excelシートのセル値を読み込み、datagridviewに追加します。 以下のコードに従っていますが、1行しか追加せず、Excelシートの最後の行です。私はExcelのシートで4行を持っているので、datagridviewにも4行が必要です。

For x = 9 To xlWorkSheet.UsedRange.Rows.Count 
      For j = 0 To LogCalcEnter.ColumnCount - 1 
       If Not String.IsNullOrEmpty(xlWorkSheet.Cells(1 + x, j + 1).Value) Then 
        LogCalcEnter.Rows.Add() 
        LogCalcEnter.Item(j, 0).Value = xlWorkSheet.Cells(1 + x, j + 1).value 
       End If 
      Next 
     Next 

LogCalcEnterはあなたがオーバーループしているすべての列に新しい行を追加するDataGridView

Answer 1

の名前です。以下のコードは、ループする各行に対して新しい行を作成します。 LogCalcEnter.Item(j, 0)をLogCalcEnter.Item(j, rowIndex)に変更して、行情報も入力しています。注：私は実際にはそれを実行していない、あなたはこれで使用しているインデックスに問題がある可能性があります。スプレッドシートに4行あり、x = 9で始まっているとします。また、xlWorkSheet.Cells(1 + x, j + 1).Value)の+1は、行数をUsedRangeの値よりも大きくします。

For x = 1 To xlWorkSheet.UsedRange.Rows.Count 
     Dim rowIndex = LogCalcEnter.Rows.Add() 
     Dim hasValue = False 
     For j = 0 To LogCalcEnter.ColumnCount - 1 
      If Not String.IsNullOrEmpty(xlWorkSheet.Cells(1 + x, j + 1).Value) Then 
       hasValue = True 
       LogCalcEnter.Item(j, rowIndex).Value = xlWorkSheet.Cells(1 + x, j + 1).value 
      End If 
     Next 
     If Not hasValue Then LogCalEnter.Rows.RemoveAt(rowIndex) 
    Next