想做一个类似 select sum(money),name from a group by name的水晶报表,怎么做啊关键是我不知道怎么在水晶报表作 group by 阿 (那个什么组专家只是把同一种类型的数据在客户端放在一起,没有group!!!)谢谢了
还有一个问题,如果我用acess做数据源,用的是jet4.0连的,那么在做两个表的时候,比如
select a.name,b.c from a,b where a.id=b.id
是不是先要在水晶报表在做一个视图,这样才能有这样的字段可以操作,编排
在程序运行的时候,由于不确定access的具体位置,先要做一个recordset 里面的内容就是
select a.name,b.c from a,b where a.id=b.id ,然后把这个recordset赋给水晶报表对象是吗??
还有一个问题,如果我用acess做数据源,用的是jet4.0连的,那么在做两个表的时候,比如
select a.name,b.c from a,b where a.id=b.id
是不是先要在水晶报表在做一个视图,这样才能有这样的字段可以操作,编排
在程序运行的时候,由于不确定access的具体位置,先要做一个recordset 里面的内容就是
select a.name,b.c from a,b where a.id=b.id ,然后把这个recordset赋给水晶报表对象是吗??
Private Sub Form_Load()
Dim strPathName As String, strReportName As String, strSqlPath As String
Dim rsPath As New ADODB.Recordset
strSqlPath = "select mean from Parameter_tab where parameter_name='tabOrderFormReport'"
rsPath.Open strSqlPath, strPubConnect, adOpenKeyset, adLockReadOnly
If Not rsPath.EOF Then
strPathName = rsPath.Fields(0).Value
Else
MsgBox "§ä¤£¨ì³øªí¸ô®|¡A½Ð»P¸ê°TÁp¨t¡I", vbCritical, "´£¿ô±z"
Exit Sub
End If
strReportName = "custom_tabFinishGoinReport.rpt"
Screen.MousePointer = 11
Set objReport = objApp.OpenReport(strPathName & strReportName, 1)
'' Set objReport = objApp.OpenReport("G:\Report\" & strReportName, 1)
objReport.Database.SetDataSource rsImport
objReport.ReadRecords
CRViewer91.ReportSource = objReport
CRViewer91.ViewReport
Screen.MousePointer = 0
End SubPrivate Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
insert group 按钮在哪里啊??
都快找到火星了!!!谢谢阿