VS.NET无缝集成Crystal Reports

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
'ParameterField类提供属性，以便检索和设置参数字段的选项和值。
Dim ParamFields As New ParameterFields()
Dim ParamField As New ParameterField()
'定义Crystal Report离散值
Dim DiscreteVal As New ParameterDiscreteValue()
Dim LogOnInfo As New TableLogOnInfo()

'表示一个报表，并且包含定义、格式化、加载、导出和打印该报表的属性和方法。
Dim Report As New ReportDocument()

'加载你事先做好的Crystal Report报表文件
Report.Load("D:\Temp\Order.RPT")

' 对报表中的每个表依次循环。
Dim i As Integer
For i = 0 To Report.Database.Tables.Count - 1
'ConnectionInfo提供属性，以便检索和设置与数据库服务器或 ODBC 数据源连接的选
项。
'当前表的连接信息,请设置为与你机器相关的正确数值
LogOnInfo.ConnectionInfo.ServerName = "localhost"
LogOnInfo.ConnectionInfo.DatabaseName = "MRP"
LogOnInfo.ConnectionInfo.UserID = "sa"
LogOnInfo.ConnectionInfo.Password = "020617"
'应用连接信息
Report.Database.Tables.Item(i).ApplyLogOnInfo(LogOnInfo)
Next i

Dim CurrentID As Int16 = Convert.ToInt16(TextBox1.Text)
'重定义Crystal Report选择条件
If CurrentID = 0 Then
Report.DataDefinition.RecordSelectionFormula = "{客户.ID} > {?ID}"
Else
Report.DataDefinition.RecordSelectionFormula = "{客户.ID} = {?ID}"
End If
DiscreteVal.Value = Convert.ToInt16(TextBox1.Text)
ParamField.ParameterFieldName = "ID"
ParamField.CurrentValues.Add(DiscreteVal)
ParamFields.Add(ParamField)
'应用参数
CrystalReportViewer1.ParameterFieldInfo = ParamFields
CrystalReportViewer1.DisplayGroupTree = False
'将Crystal Replort查看器的数据源设为ReportDocumnet类的实例
CrystalReportViewer1.ReportSource = Report
Catch e1 As Exception
MessageBox.Show(e1.ToString & Chr(10) & "请检查SQL用户名,密码等连接参数和Order.RPT路径设置等!", "不正确的环境设置")
End Try
End Sub