Ver Mensaje Individual
  #7 (permalink)  
Antiguo 19/05/2005, 10:55
Avatar de Bravenap
Bravenap
 
Fecha de Ingreso: noviembre-2002
Ubicación: Los Arroyos, El Escorial, Madrid
Mensajes: 2.084
Antigüedad: 21 años, 6 meses
Puntos: 4
Bueno, pues ya está. Tengo que aplicar la función MAX(), aunque vale otra parecida, para que agrupe bien, puesto que no es suma ni cuenta. Os dejo el código completo:

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 & " 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) 'cambia el número de mes por el nombre del mes
            Next
            Dim dvResumen As New DataView(dtResumen)
            dvResumen.Sort = "Año, Mes"
            Me.dgInforme.DataSource = dvResumen
Un saludo.
__________________
¡¡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!