Ver Mensaje Individual
  #8 (permalink)  
Antiguo 24/05/2005, 07:59
Avatar de Bravenap
Bravenap
 
Fecha de Ingreso: noviembre-2002
Ubicación: Los Arroyos, El Escorial, Madrid
Mensajes: 2.084
Antigüedad: 22 años, 3 meses
Puntos: 4
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.
__________________
¡¡NO A LA GUERRA!!
Si ponemos a nuestros mensajes títulos adecuados, la gente se animará más a abrirlos y resultarán más útiles en las busquedas. ¡No a los ayuuudaaa, urgenteee y similares!