Imports System.Data.SqlClient
Imports System.Data
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Public Class YourReportForm
Private Sub ReportForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
Dim currentReport As New YourCrystalReport
CrystalReportViewer1.ReportSource = currentReport
currentReport.SetDatabaseLogon("DBUser", "DBPassword")
Dim paramFields As New ParameterFields()
Dim paramField As New ParameterField()
Dim discreteVal As New ParameterDiscreteValue()
paramField.ParameterFieldName = "YourParameterName"
discreteVal.Value = "YourParameterValue"
paramField.CurrentValues.Add(discreteVal)
paramFields.Add(paramField)
CrystalReportViewer1.ParameterFieldInfo = paramFields
CrystalReportViewer1.Zoom(85)
End Sub
End Class
Imports CrystalDecisions.Shared Imports CrystalDecisions.CrystalReports.Engine Imports System.Data.SqlClient Partial Class DailyMeterList Inherits System.Web.UI.Page Dim R1 As New ReportDocument Protected Sub btnPreview_Click ... Dim xFile As String = Server.MapPath("CR1.rpt") R1.Load(xFile, OpenReportMethod.OpenReportByDefault) Dim objConn As New SqlConnection(YourConnectString) Dim DA As SqlDataAdapter Dim ds As New DataSet Dim dt As DataTable Dim strCmd As String strCmd = "SELECT * FROM WorkTable " objConn.Open() DA = New SqlDataAdapter(strCmd, objConn) DA.Fill(ds, "DataTable1") dt = ds.Tables("DataTable1") R1.Database.Tables(0).SetDataSource(ds.Tables(0)) V1.ReportSource = R1 End Sub End Class 'แต่เกิดปัญหาว่าเวลากด Next เพื่อดูหน้าต่อไปปรากฎว่า 'รายงานไม่แสดงผลเลยจึงแก้ด้วย Code ดังนี้ Protected Sub Page_Load ... If Page.IsPostBack Then btnPreview_Click(sender, e) End If End Sub
Dim rpt As New rptName
rpt.SetParameterValue("pr1", txt1.Text)
rpt.SetParameterValue("pr2", txt2.Text)
CrystalReportViewer1.ReportSource = rpt
CrystalReportViewer1.Refresh()
| ในฟอร์ม |
Imports CrystalDecisions.Shared |
