ordenar registros con Dataareport

[kikevar]

Hola todos buenas tardes

Aqui con una duda nuevamente en mi programa mando llamar un data report el cual lo filtro por fecha y por caja(es un punto de venta) el reporte sale bien pero a la hora que le añado el comando order by me manda el reporte en blanco, ya estube checando en varias paginas en internet y segun yo la sintaxis esta bien no se si tengo algun otro problema aqui les pongo el codigo a ver si me puden ayudar de ante mando muchas gracias

Código:

Private Sub cmdaceptar_Click()

Dim ventadia As ADODB.Command
Dim Entorno As demybusiness
Dim fecha As Date
Dim caja As String

fecha = dtpfecha.Value
caja = cbxcajas.List(cbxcajas.ListIndex)

Set Entorno = New demybusiness

Entorno.condiaventa.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & server & "; DATABASE=" & dbase & " ;PWD=" & pass & "; UID=" & user & ";OPTION=3"
  
Set ventadia = Entorno.Commands("acmdiarioventa_Grouping")
ventadia.CommandType = adCmdText

If caja = "" Then
   MsgBox "Elija una Caja por favor"
Else
   ventadia.CommandText = "SHAPE {SELECT usuarios.USUARIO, ventas.USUARIO AS Expr1, usuarios.NOMBRE," _
   & "ventas.ESTADO, ventas.USUHORA, ventas.F_EMISION, ventas.IMPORTE, ventas.IMPUESTO, ventas.estacion, ventas.NO_REFEREN," _
   & "ventas.IMPORTE + ventas.IMPUESTO as total FROM usuarios, ventas WHERE (usuarios.USUARIO = ventas.USUARIO)" _
   & "and ventas.f_emision = " & Format(fecha, "yyyymmdd") & " and ventas.estacion = '" & caja & "'" _
   & "and ventas.estado = '" & "CO" & "' order by ventas.NO_REFEREN} AS acmdiarioventa COMPUTE acmdiarioventa, SUM(acmdiarioventa.'IMPORTE')" _
   & "AS TotalImporte, SUM(acmdiarioventa.'IMPUESTO') AS TotalIva BY 'estacion','USUARIO'"
   Load rptdiarioventa
   rptdiarioventa.Show 1, frmprincipal
   Unload Me
End If

End Sub

Si no le pongo el order by ventas.NO_REFEREN me manda el reporte bien solo que ordenado por usuario y yo lo necesito por el No. de referencia

[lokoman]

& "and ventas.f_emision = " & Format(fecha, "yyyymmdd") & " and ventas.estacion = '" & caja & "'" _
& "and ventas.estado = '" & "CO" & "' order by ventas.NO_REFEREN} AS acmdiarioventa COMPUTE acmdiarioventa, SUM(acmdiarioventa.'IMPORTE')" _
& "AS TotalImporte, SUM(acmdiarioventa.'IMPUESTO') AS TotalIva BY 'estacion','USUARIO'"
-----------------
Por que pones: & "and ventas.estado = ' " & "CO" & " ' order by ventas.NO_REFEREN}

Si CO es un texto ponlo asi: & "and ventas.estado = 'CO'

El order by creo que lo haces en la linea: BY 'estacion','USUARIO'", cambia 'USUARIO' por ventas.NO_REFEREN, a ver que sale...