水晶报表如何实现按照参数动态排序,给高分,先谢谢了,很急!!!

Question

报表的排序字段和排序方法(升序, 降序)是按照传入的参数而定的,
参数=1时: Order by HOKENSHA_NO asc・
参数=2时: Order by PROC_COUNT  asc, 保険者番号 asc・
参数=3时: Order by 処理件数 desc, 保険者番号 asc
我在Select Expert中用Order by语句会有语法错误，
请问高人这个功能如何实现？

Answer 1

这样行不行呀。
Select case yourPara
    Case 1
         StrSql = StrSql & "Order by HOKENSHA_NO asc&#12539"
    Case 2
         StrSql = StrSql & "Order by PROC_COUNT  asc, 保険者番号 asc&#12539"
    Case 3
         StrSql = StrSql & "Order by 処理件数 desc, 保険者番号 asc"    
    Case Else
         StrSql = StrSql & ""
End Select

Answer 2

用
sql="select * from table order by ...."
set rs=execute(sql,msgtext)得出rs
Set Report = CryApp.OpenReport(App.Path & "\report\rptmzghf.rpt")
Report.Database.SetDataSource rs这样得出来的报表就是排好顺序的了如果还不行可以[email protected]

Answer 3

不用SQL事先實現的,在RPT對COM操作可以動態實現的,也不難:先聲明字段對象,把你所選中的排序字段SET給你所定義的"字段對象"變量,然後給報表象的ADD方法,把你的字段加入排序隊列即可,刷新即可...