
Mi codigo es este, se me cae en la linea roja
Código:
Alguna ayuda? 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
