データテーブル内のAddin Datarow

Question

Excelシートからデータを読み込んでDatatableの行を追加するVB.NET関数を使用しました。

Private Function LoadDataToRows(ByVal TableName As DataTable, ByVal Header As System.Collections.Specialized.StringCollection) As Boolean 
     Dim HeaderDataExcel As String = String.Empty 'Data Header 
     For r As Integer = 1 To RangeDataArray.Rows.Count 
      Dim NewRow As DataRow = TableName.NewRow 
      For c As Integer = 1 To RangeDataArray.Columns.Count 
       If Not (IsNothing(DirectCast(ActiveSheetToManipulate.Cells.Item(r + DataStartRow, c), Excel.Range).Value)) Then 
        Dim ValueToLoad As String = TryCast(ActiveSheetToManipulate.Cells.Item(r + DataStartRow, c), Excel.Range).Value.ToString 

        HeaderDataExcel = TryCast(ActiveSheetToManipulate.Cells.Item(DataStartRow, c), Excel.Range).Value.ToString 
        Dim indice As Integer = Header.IndexOf(HeaderDataExcel) 
        TableName.NewRow(indice) = ValueToLoad 
       Else 
        'Todo 
       End If 
      Next 
      TableName.Rows.Add(NewRow) 
     Next 
     Return True 
    End Function 

ただし、データはテーブルに追加されませんでした。助言がありますか？

Answer 1

私はVB.NETプログラマーないんだけど、あなたはおそらく他にはなくByValの

よりもByRefで渡すことをDataTableのパラメータを変更する必要があるが、正しいNewRow列を移入するための構文ですか？ TableName.NewRowを使用するのではなく、作成された新しいデータ行インスタンスを使用する必要がありますか？

私はそれがより多くのようだと思った：

Dim newRow As DataRow = TableName.NewRow() 

newRow ("ColumnName") = "MyNewValue" ' Add specifying column name 
newRow (2) = "AnotherValue" ' Add specifying column index 

TableName.Rows.Add(newRow) 

だからあなたのコードは、次のようなものになるだろう（私はそれがあなたの混乱の一部を引き起こしていると思うので、私は新しい行変数の名前を変更した注意してください）

 Dim rowToAdd As DataRow = TableName.NewRow() 
     For c As Integer = 1 To RangeDataArray.Columns.Count 
      If Not (IsNothing(DirectCast(ActiveSheetToManipulate.Cells.Item(r + DataStartRow, c), Excel.Range).Value)) Then 
       Dim ValueToLoad As String = TryCast(ActiveSheetToManipulate.Cells.Item(r + DataStartRow, c), Excel.Range).Value.ToString 

       HeaderDataExcel = TryCast(ActiveSheetToManipulate.Cells.Item(DataStartRow, c), Excel.Range).Value.ToString 
       Dim indice As Integer = Header.IndexOf(HeaderDataExcel) 
       rowToAdd(indice) = ValueToLoad 
      Else 
       'Todo 
      End If 
     Next 
     TableName.Rows.Add(rowToAdd)