哪位大哥有简单的水晶报表的例子啊,看网上的就是没数据出来,谢谢大家了

[dark28]

哪位大哥有简单的水晶报表的例子啊,看网上的就是没数据出来,谢谢大家了
有实例的话可以发我邮箱挖
[e-mail]
谢谢大家了

[lubosun]

我建议:你要是真想学的话,还是买本书看看吧

有一本"章立民"写的<<实例学CRYTLEREPORT>>还不错

[lbmshiwo]

发了后,记得给分.

[wypeng7115]

Private Sub RptSource()
Dim sqlCmd As New SqlDataAdapter
Dim adoDs As New dsINTRANET
Dim RptName As String
Dim strSql As String
Dim strName As String
Dim FirPara As New ParameterValues
Dim FirDis As New ParameterDiscreteValue

'設置報表數據源
RptName = Server.MapPath("cRp001.rpt")
RptDoc.Load(RptName)

'傳報表名稱參數
FirDis.Value = "職務應徵統計"
FirPara.Add(FirDis)
RptDoc.DataDefinition.ParameterFields("RptName").ApplyCurrentValues(FirPara)

If Trim(ddlEmna.SelectedValue) = "" Then
viewstate("sclass") = "0"
initclass()
initddl("")
strName = ""
Else
strName = " where emna='" & Trim(ddlEmna.SelectedValue) & "'"
End If
strSql = "select * from v_JOB001 " & strName
adoCn.Open()
sqlCmd = New SqlDataAdapter(strSql, adoCn)
sqlCmd.Fill(adoDs, "v_JOB001")
RptDoc.SetDataSource(adoDs)
cRpView001.ReportSource = RptDoc
adoCn.Close()
End Sub

[ChinaRedRiver]

mark