De vuelta con estos lios de tablas, una cuestión. Una vez obtenido un DataView al que se le aplica un orden de filas, me gustaría crear una nueva tabla que mentuviera ese orden. Estoy intentando esto, pero salta error en la línea roja. Dice que la fila ya pertenece a otra tabla:
Código:
strSel = "SELECT CSTR(MAX(MONTH(CDATE(FechaVisado)))) AS Mes, MAX(YEAR(CDATE(FechaVisado))) AS Año, COUNT(NumVisado) AS Visados, SUM(CDBL(CDBL(DerechosVisado)+CDBL(Legalizacion))) AS Importe FROM " & TablaBDInicial
strSel += " WHERE " & filtroFechas.ToString & filtroLega.ToString
strSel += " GROUP BY (MONTH(CDATE(FechaVisado)) & YEAR(CDATE(FechaVisado)))"
Dim daResumen As New OleDbDataAdapter(strSel, con)
Dim dtResumen As New DataTable
daResumen.Fill(dtResumen)
For Each f As DataRow In dtResumen.Rows
f("Mes") = meses(Int16.Parse(f("Mes")) - 1)
Next
Dim dvResumen As New DataView(dtResumen)
dvResumen.Sort = "Año, Mes"
Me.dgInforme.DataSource = dvResumen
Dim dtOrdenada As DataTable
dtOrdenada = dtResumen.Clone
For i As Integer = 0 To dvResumen.Count - 1
Dim nFila As DataRow = dtOrdenada.NewRow
nFila = dvResumen.Item(i).Row
Try
dtOrdenada.Rows.Add(nFila)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Next
ds.Tables.Clear()
ds.Tables.Add(dtOrdenada)
Gracias de nuevo.