Foros del web, para los que viven de bits

Dim dsItemxBodegaFinal As New DataSet        
        Dim idbodega As Integer
        Dim arrdr As DataRow()
        Dim i As Integer = 0
        Dim condicion As String

        For Each dr As DataRow In dsItemxBodega.Tables(0).Rows
                Dim dt As DataTable = New DataTable
                condicion = "IdBodega = " + Convert.ToString(dr("IdBodega"))
                arrdr = dsItemxBodega.Tables(0).Select(condicion)
                Dim dr3 As DataRow = dsItemxBodega.Tables(0).NewRow
                For Each dr2 As DataRow In arrdr
                    dt.Rows.Add(dr2)                   
                    dsItemxBodega.Tables(0).Rows.Remove(dr2)
                Next
                dsItemxBodegaFinal.Tables.Add(dt)
                dsItemxBodega.AcceptChanges()
                i = i + 1
            Next

Dim dsItemxBodegaFinal AsNew DataSet
Dim idbodega AsInteger
Dim arrdr As DataRow()
Dim i AsInteger = 0
Dim condicion AsString
Dim dt As DataTable = New DataTable
dt.Columns.Add("IdBodega", GetType(Integer))
dt.Columns.Add("Nombre", GetType(String))
'Tienes que poner las mismas columnas que tu tabla original
 
'No es necesario el ciclo
 
 
 
 
 

'ForEach dr As DataRow In dsItemxBodega.Tables(0).Rows
condicion = "IdBodega= " + Convert.ToString(dr("IdBodega"))
arrdr = dsItemxBodega.Tables(0).Select(condicion)
'Dim dr3 As DataRow = dsItemxBodega.Tables(0).NewRow
'No se utiliza dr3
ForEach dr2 As DataRow In arrdr
dt.LoadDataRow(dr2.ItemArray, True) 
'dt.Rows.Add(dr2)
dsItemxBodega.Tables(0).Rows.Remove(dr2)
Next
dsItemxBodegaFinal.Tables.Add(dt)
dsItemxBodega.AcceptChanges()
'i = i + 1 Para que es la i?
'i == dsItemxBodega.Tables(0).Rows.count ??
 
 
 
 

'Next