Question

When my application loops through the first code block below, I get valid data for all datarow fields.

    For Each dRow In dtExportAddr.Rows
        dtExportAddr.Rows.Add(dRow("MgrID"), dRow("LocationNum"), dRow("DeptNum"), dRow("AddressLinkID"), dRow("PositionID"))
    Next  

But I get an error when looping through that code block “Collection was modified; enumeration operation might not execute.”

So I am using the code block below:

        Dim rowCount As Integer = dtExportAddr.Rows.Count
        Dim index As Integer = 0
        For index = 0 To rowCount - 1
            Dim dRow As DataRow = dtExportAddr.Rows.Item(index)
            dtExportAddr.Rows.Add(dRow("MgrID"), dRow("LocationNum"), dRow("DeptNum"), dRow("AddressLinkID"), dRow("PositionID"))
        Next

However, in the second code block, I get a valid record for MgrID, but I get a blank value for the other fields.
When I look in the database, all fields in that table have valid values.

What would be causing the blank values?

Answer 1

You are still adding rows to the same datatable as you were in the first code block, you are just enumerating through it in a different manner. You should create a new datatable to add your rows to, instead of the one you are looping through.

If you do that, you should be able to use either method for your loop.

    Dim tempTable As New DataTable

    For Each dRow As DataRow In dtExportAddr.Rows
        Dim tempRow As DataRow = tempTable.NewRow(dRow("MgrID"), dRow("LocationNum"), dRow("DeptNum"), dRow("AddressLinkID"), dRow("PositionID"))
        tempTable.Rows.Add(tempRow)
    Next

I am not sure that gets you nearer your goal, but I am having some trouble figuring out exactly what you are trying to accomplish when you loop through that data table.