01.Imports CrystalDecisions.CrystalReports.Engine
02.Imports CrystalDecisions.Shared
03.Imports System.Data
04.Imports System.Data.SqlClient
05.
06.Public Class Nisit_rpt
07. Private _conn As SqlConnection
08.
09.Privale sub Form2_Load() Handles Me.Load
10._conn = New SqlConnection(_conStr)
11. _conn.Open()
12.
13. Dim paramValue As New ParameterDiscreteValue
14. paramValue.Value = TxtID1.Text
15.
16. Dim paramfid As New ParameterField
17. paramfid.ParameterFieldName = "MemberID"
18. paramfid.CurrentValues.Add(paramValue)
19.
20. Dim paramfields As New ParameterFields
21. paramfields.Add(paramfid)
22.
23. CRViewer.ParameterFieldInfo = paramfields
24.
25. CRViewer.ReportSource = New Nisit()
26.End sub
27.End Class
